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microprocessor-controlled  diode  matrix  array.  The  matrix  detector  senses 
an  IR  emitting  light  source  which  is  located  on  the  model  target.  The 
flight  equations  of  motion  for  the  missile  are  solved  by  a  16-bit 
microprocessor  every  0.02  seconds.  A  second  coordinated  16-bit  processor 
controls  a  display  that  plots  both  vertical  and  horizontal  aiming  error 
for  analysis  of  the  gunner's  performance  by  an  instructor.  Experienced 
TOW  gunners  have  tested  the  system  and  attested  to  the  realism  and  training 
potential.  ' 

The  report  also  describes  a  method  of  simulating  the  TOW  thermal  sight 
for  gunner  training. 
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The  Simulated  Tank  Anti- Armor  Gunnery  System  (STAGS)  Is  a  generic  trainer 
developed  to  train  TOW,  DRAGON,  STINGER/ILAW  and  other  missile  gunners  at  a 
reasonable  cost. 

This  report  describes  the  re search -model /ST AGS  TOW.  The  Simulated  Tank 
Anti-Armor  Gunnery  System  (STAGS-T)  employs  multiple  ml  coprocessors  to  solve 
the  TOW  flight  equations,  generate  graphics,  generate  weapon  sounds,  and 
control  stepper  motors  that  move  three  miniature  models  on  a  terrain  board.  A 
computer-generated  voice  and  microprocessor-controlled  sound  system  coordinate 
the  training  session  by  Issuing  the  standard  firing  conmands.  When  the 
trainee  fires,  he  hears  the  weapon's  Ignition.  While  looking  through  the 
sight,  he  sees  smoke  at  launch.  When  the  smoke  clears,  he  views  the  missile 
moving  down  range  and  the  explosion  at  Impact.  The  trainee  can  use  either  of 
the  two  simulated  sights  --  optical  or  thermal.  Realistic  thermal  Images  are 
presented  In  the  thermal  sltjit.  The  Instructor  can  view  In  real-time  both  a 
TV  picture  of  the  gunner's  sight  picture  and  a  graphics  display  of  gunner 
aiming  error  vs.  range.  The  Instructor  can  recall  the  missile's  flight  path 
vs.  range. 

This  model  has  been  evaluated  by  experienced  TOW  gunner  teams  from  both 
the  U.S.  Marine  Corps  and  U.S.  Army.  Assessment  of  these  evaluators  was  that 
the  task  simulation  Is  hljjily  realistic  and  that  the  approach  should  yield  a 
high  level  of  training  transfer. 


A  laboratory  model  was  constructed  by  the  Advanced  Simulation  Concepts 
Laboratory,  Naval  Training  Equipment  Center,  Orlando,  Florida,  for  the  U.S. 
Army  Project  Manager  for  Training  Devices  (PM  TRADE)  and  the  U.S.  Marine  Corps. 
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SECTION  I 


INTRODUCTION 

This  report  describes  a  system  using  advanced  electro-optics  and 
microprocessor  technology  to  enable  training  of  TOW  gunners  at  a  reasonable 
cost.  Anti-armor  live-fire  training  is  expensive.  Each  live  round  costs 
thousands  of  dollars.  The  user  community  finds  that  presently-fielded  devices 
and  simulators  are  inadequate  for  full  gunnery  training. 

TOW  Isa  crew-portable,  heavy  anti-tank  weapon  designed  to  attack  and 
defeat  armored  vehicles  and  field  fortifications.  The  missile  is 
tube-launched,  optically- tracked,  wire  command-! ink  guided.  The  gunner  guides 
the  missile  by  tracking  the  target  either  through  an  optical  telescope  (day 
sight)  or  an  Infrared  night  vision  sight  (thermal  sight).  The  thermal  sight 
is  a  passive  device  that  detects  heat  emissions  (infrared  energy)  from  a 
target  area,  converts  the  infrared  energy  to  electrical  signals  and  then  to 
visible  light  and  displays  the  visible  light  as  a  real-time  scene  for  tracking 
by  the  gunner. 

In  the  STAGS  trainer,  the  targets  are  miniature  scale  model  tanks  on  a 
terrain  board.  Movement  of  the  tanks  is  accomplished  using  microprocessor- 
controlled  stepper  motors.  A  computer-generated  voice  and  microprocessor- 
controlled  sound  system  coordinate  the  training  sessions  by  Issuing  the  firing 
commands  to  the  student;  this  subsystem  also  supports  Instructor-selectable 
real-time  automated  student  coaching. 

When  the  trainee  fires  the  STAGS-T  training  device,  he  hears  the  gyro 
wind-up  noise  followed  by  the  explosions  of  the  rocket  launch. 

in  the  sight,  he  observes  the  smoke  from  launch  and,  when  the  smoke 
clears,  he  sees  the  missile  flying  down  range.  The  visual  explosion  at  the 
final  missile  Impact  is  also  inserted  in  the  sight.  In  mission  scenarios,  one 
or  more  tank  models  maneuver  over  terrain  and  can  move  into  cover. 

Multi pie- threat  scenarios  have  been  designed  to  force  students  to  select  the 
greater  threat  or  to  practice  target  transfer. 

After  the  mission  is  completed,  the  computer-generated  voice  unit  tells 
the  trainee  where  the  missile  Impacted. 

During  missile  flight,  the  instructor  can  view,  in  real-time,  both  a  TV 
picture  of  the  gunner  sight  picture  and  a  graphics  plot  of  gunner  aiming  error 
vs.  range.  The  Instructor  can  also  recall  the  missile's  flight  path  vs.  range. 

In  summary,  key  features  of  STAGS-T  are: 

t  Both  the  optical  and  thermal  sights  are  simulated  for  all-situation 
training. 

t  Computer-controlled,  computer-generated  voice  unit  issues  all  firing 
commands  to  the  trainee  to  initiate  the  firing  sequence. 


•  Computer-controlled  voice  may  both  coach  and  debrief  the  trainee. 

•  Microprocessors  solve  TOW  flight  equations  for  realistic  control 

training . 

•  Missile  explosions  as  well  as  return  fire  are  simulated. 

•  The  student  uses  realistic  missile  reaction  to  in-flight  gunnery 

commands. 

•  Highly-detailed  models  maneuver  over  a  hilly  terrain  board, 
supporting  training  of  both  simple  and  complex  tracking  skills, 
including  target  transfer  and  --  for  advanced  gunnery  --  "flying  the 
missile"  around  obstructions. 

•  Cost  of  expensive  targets  and  missile  are  not  required. 

•  Video  record  and  playback  capability  Is  available. 

•  Random  target  evasive  maneuvers  can  be  selected  as  a  scenario  choice. 

•  Smoke  and  obscurants  may  be  inserted  In  the  gunner's  sight. 

•  Real-time  feedback  to  the  instructor  include  both  the  gunner's  sight 
picture  and  gunner  aiming  error,  GAE,  vs.  range. 

Figures  1-1  through  1-5  show  the  STAGS-T  laboratory  model. 

A  similar  system  (STAGS-D)  was  developed  for  DRAGON.  The  DRAGON  system 
was  well  accepted  by  the  user  community.  STAGS-T  also  has  been  demonstrated 
to  experienced  gunners,  with  similar  acceptance. 
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SECTION  II 


SYSTEM  DESCRIPTION 

A  system  block  diagram  is  shown  in  Figure  1 1 -1 .  The  system  consists  of 
three  basic  components: 

Terrain  Board, 

Student  TOW  Station,  and 
Instructor's  Console. 

The  TOW  utilizes  a  13X  sighting  telescope  and  can  engage  targets  beyond 
3,000  meters.  Computer-generated  imagery,  video-disc  and  movies  were 
considered  for  the  display  system  but  they  lacked  the  resolution  required  for 
a  well-defined  target  at  TOW  ranges.  To  overcome  such  deficiencies, 
model-board  presentation  was  selected.  Targets  consist  of  three  (3)  1/285 
scaled  tank  models.  The  models  can  rotate  and  simulate  motion  at  oblique 
angles  as  well  as  toward  the  gunner  or  across  his  field  of  view.  One  model 
moves  on  a  track  as  if  on  a  hill;  another  model  is  behind  the  hill  and  moves 
in  and  out  of  the  cover  of  the  hill.  The  third  model,  controlled  by  a  linear 
actuator,  moves  up  and  down  so  any  degree  of  defilade  can  be  simulated.  This 
model  can  also  "bounce"  slowly  up  and  down,  giving  an  appearance  of  movement 
on  a  routji  road.  The  scale  models  used  in  the  lab  model  are  commercially 
available  "micro- armor"  models  and  have  excellent  detail.  The  models  are 
moved  by  intelligent  positioning  stepper  motor  controllers.  The  instructor 
selects  engagement  scenario  and  the  Personnel  Interface  Processor  (PIP)  loads 
the  program  Into  an  internal  program  buffer  in  the  stepper  motor  controller. 
While  moving  the  model,  the  controller  functions  independently  of  the  PIP  and 
executes  the  commands  that  were  stored  in  the  program  buffer.  Engagement 
scenarios  are  stored  in  the  PIP  and  are  selectable  from  the  instructor's 
console  by  the  input  terminal.  The  velocity,  direction  and  range  of  the  tank 
targets  is  in  the  scenario  program.  A  programmable  output  pin  on  the 
positioning  stepper  motor  controller  is  used  to  synchronize  the  computer  voice 
system  which  Issues  the  firing  orders  to  the  trainee.  Human-like  speech 
firing  commands  are  given  the  trainee  by  a  National  Semiconductor  speech 
processor.  Vocabulary  words  used  in  the  system  are  stored  in  ROM  of  the 
speech  synthesizer  system.  The  operator  can  also  select  a  "coach"  function 
which  coaches  the  trainee  during  the  missile  flight. 

Gunner  aiming  errors  (GAE)  are  determined  using  a  100  x  100  photodiode 
matrix  camera  located  on  the  simulated  TOW  weapon  and  boresighted  to  the 
sight.  Tbe  matrix  camera  views  an  Infrared  light  source  at  the  target;  the 
output  data  is  sent  to  a  Missile  Flight  Simulator  (hFS)  processor  to  determine 
the  GAE.  Target  location  and  velocity  are  also  input  to  the  missile  flight 
system  by  monitoring  the  stepper  motor  pulses.  The  MFS  processor  solves  the 
TOW  flight  equations  and  provides  status  to  the  PIP.  The  PIP  controls  the 
graphics  units  which  Inserts  the  smoke,  missile  and  impact  explosions  graphics 
into  the  gunner's  sight.  This  processor  also  controls  the  GAE  display  on  the 
instructor's  console.  This  display  plots  GAE  vs.  range  in  real-time.  On  a 
recall  basis,  missile  position  vs.  range  is  plotted  for  debrief  of  the  gunner. 


System  Block  Diagram 


Both  processors,  the  MFS  and  PIP,  use  the  Intel  8066  microprocessor.  The 

also  uses  the  8087  math  coprocessor.  The  8087  coprocessor  allows  all 
flight  equations  to  be  solved  using  floating-point  arithmetic  in  real-time  and 
expands  the  graphics  capability  over  the  original  STAGS-DRAGON. 

The  AH/TAS-4A  night  sight  is  also  simulated  so  the  gunner  can  be  trained 
in  the  use  of  both  day  and  thermal  sights.  Simulated  thermal  targets  were 
developed  and  are  discussed  in  Section  III-F. 

The  MFS  communicates  with  a  General  Instrument  sound-producing  integrated 
circuit  which  produces  the  gyro  wind-up,  rocket  motor,  and  warhead 
explosions.  Sounds  are  attenuated  as  a  function  of  the  distance  of  the 
missile  from  the  trainee. 

A  TV  screen  on  the  instructor's  console  provides  the  instructor  with  the 
same  view  as  seen  through  the  gunner's  sight.  TV  data  are  obtained  from  a 
CCTV  camera  located  on  and  boresighted  to  the  simulated  TOW  day  sight. 

Data  printouts  for  both  a  hit  and  various  types  of  misses  are  shown  in 
Figures  1 1-2  through  11-13. 

The  instructor  reviews,  in  real-time,  gunner  aiming  error  vs.  range.  He 
can  recall,  after  the  missile  flight,  the  missile  position  vs.  range.  Various 
phenomena  due  to  poor  gunner  performance  are  also  simulated,  i.e.,  lost 
guidance,  etc. 
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Figure  11-2.  Gunner  Aiming  Error  vs.  Range  (Hit  Kill). 
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Figure  1 1 -3.  Missile  Position  vs.  Range  (Hit  Kill). 
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Figure  r 1-4.  Gunner  Aiming  Error  vs.  Range  (Hit  Disable). 
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Figure  1 1 -6.  Gunner  Aiming  Error  vs.  Range  (Guidance  Lost). 
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II-7.  Missile  Position  vs.  Range  (Guidance  Lost). 
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Figure  1 1 -8.  Gunner  Aiming  Error  vs.  Range  (Wire  Broke). 
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Missile  Position  vs.  Range  (Wire  Broke). 
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Figure  11-10.  Gunner  Aiming  Error  vs.  Range  (Ground  Impact). 
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Figure  11-11.  Missile  Position  vs.  Range  (Ground  Impact) 
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SECTION  III 


l 

SYSTEM  DESIGN  j 


A.  ELECTRO-OPTICS  SUBSYSTEM 

The  electro-optics  subsystem  is  designed  to  support  the  following  functions: 

(1)  Obtain  data  to  measure  the  gunner  aiming  error. 

(2)  Simulate  the  day  sight  and  Insert  smoke,  TOW  missile  flare,  impact 
explosions  and  atmospheric  phenomena. 

(3)  Simulate  the  night  sight  and  Insert  launch  motor  blooming,  TOW  missile 
flare  and  missile  Impact  explosions. 

A  block  diagram  of  the  electro-optic  subsystem  is  shown  In  Figure  III-l. 

In  order  to  measure  GAE  with  the  required  resolution  on  a  target,  a  508  mm 
focal  length  ruggedized  Questar  telescope  was  used.  The  100  x  100  photodiode 
matrix  camera  has  a  square  detector  of  0.6  cm  x  0.6  cm.  The  FOV  of  the  system 
is  11.8  mr.  To  simulate  a  target  at  3,000  meters,  a  1/285  scaled  model  is 
used.  The  terrain  board  is  located  34  ft.  6  in.  from  the  trainee.  At  this 
range  the  matrix  detector  views  a  square,  4.89  in.  x  4.89  in.  The  resolution 
across  the  4.89  in.  FOV  is  0.0489  Inches/pixel.  In  the  real  world,  this  is 
equivalent  to  *  6.96  inches/pixel  or  *  3.48  inches  per  one-half  pixel  on  a  real 
tank  at  a  range  of  3,000  meters. 

The  ruggedized  Questar  telescope  lens  Is  used  to  collect  data  for  both  the 
matrix  camera  and  gunner's  sight  picture  display. 

An  infrared  source  Is  located  slightly  above  the  target.  The  100  x  100 
photodiode  camera  is  boresighted  to  the  optical  sight  and  is  used  to  measure  the 
GAE.  The  TV  camera  provides  basic  scenic  video  which,  when  mixed  with  computer¬ 
generated  graphics,  yields  the  sight  picture  shown  on  the  console  TV  screen. 

When  using  the  "day  sight,"  the  trainee  looks  through  a  real  TOW  sight.  The 
sight  has  been  modified  to  insert  generated  graphics  data  from  a  miniature  TV. 
Smoke,  explosions,  and  the  TOW  missile  are  inserted. 

When  using  the  "thermal  sight"  or  "night  sight,"  the  trainee  looks  at  the 
terrain  board  In  a  darkened  room.  The  terrain  board  Is  illuminated  with  both  a 
dim  red  base  light  (to  provide  background)  and  a  sight-mounted  red  "spotlight." 

The  models  are  selectively  painted  with  retro-reflective  paint.  Paint  is 
placed  on  only  those  areas  of  the  target  where  the  temperature  is  above  ambient, 
i.e.,  the  road  wheels,  engine  compartment,  etc.l  A  small  collimated  red  light 


1  Thermal  signature  patterns  are  modeled  after  those  shown  in  Palmer,  John  E., 
John  D'Agostino  and  T.  Jack  Lillie;  Infrared  Target  Recognition  Handbook  (IRTH); 
U.S.  Army  Nl<Jit  Vision  and  Electro-optics  Laboratory,  Ft.  Bel  voir,  VA,  1982. 
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Figure  1 1 1 -1 .  Electro-optics  and  Thermal  Sight  Subsystem. 


source  (the  "spotlight")  is  located  directly  above  the  simulated  night  sight 
telescope.  The  telescope  has  the  same  field  of  view  as  the  operational 
thermal  sight.  The  beam  size  from  the  small  light  source  just  overfills  the 
simulated  night  sight  FC N.  The  intensity  of  the  light  is  dim  enough  that  it 
cannot  be  observed  by  the  trainee  unless  he  is  observing  reflected  light 
through  the  simulated  night  sight.  When  the  gunner's  sight  is  on  the  target, 
light  from  the  light  source  is  retro-reflected  back  from  the  target  into  the 
telescope,  making  the  target  appear  as  if  seen  through  a  night  sight.  Strong 
reflections  occur  from  areas  on  the  target  painted  with  retro-reflective 
paint.  These  areas  are  the  hot  areas  so  the  gunner  sees  a  simulated  thermal 
signature.  Because  the  retro-reflected  light  is  directional,  only  the  person 
looking  through  the  sight  simulator  can  see  the  retro-reflected  light  from  the 
target.  The  TV  inserts  both  the  missile  flare  and  the  simulated  raster  scan 
lines  seen  in  the  real  night  sight. 

B.  MICROPROCESSOR  SUBSYSTEM 

The  ST AGS- TOW  trainer  relies  on  both  general  purpose  8-bit  single-chip 
microcomputers  as  well  as  16-bit  high  speed  single  board  computers  containing 
state-of-the-art  floating  point  math  coprocessors.  The  system  is  shown  in 
Figure  III-2. 

Single  chip  microcomputers  are  used  to  relieve  the  Missile  Flight 
Simulator  (M^S)  Processor  and  the  Personnel  Interface  Processor  (PIP)  from 
time-consuming  tasks.  The  Cybernetics  CY512  and  Intel  8741  microcomputers  are 
used  as  intelligent  stepper  motor  controllers  and  a  stepper  motor 
coordinator.  A  National  Semiconductor  single-chip  computer  is  dedicated  to 
producing  computer  voice  feedback  and  a  Zilog  Z-80  controls  aspects  of  the 
computer  graphics. 

The  MFS  is  the  master  processor  for  the  STAGS-T  system.  This  processor 
commands  and  interrogates  all  the  sub-processors.  The  MFS  board  uses  an 
Intel  86/12A  microprocessor  with  an  8087  high  speed  math  coprocessor.  Upon 
completion  of  the  flight  calculations  the  MFS  delivers  flight  information  as 
well  as  gunner  aiming  Information  to  the  PIP.  Target  evasion  control  and 
computer  voice  control  timing  are  provided  by  the  MFS. 

The  PIP  microcomputer  is  also  an  Intel  SBC  86/12A  single  board  computer. 
Grey  scale  computer  graphics  for  visual  simulation  of  launch,  missile,  smoke, 
haze  and  impact  explosions  originate  from  this  processor.  Instructor  graphics 
are  generated  and  instructor  keyboard  inputs  obtained  through  the  PIP. 

Model  board  control  is  accomplished  via  a  chain  of  command  starting  with 
the  instructor's  keyboard  request  for  a  particular  scenario.  The  selection  is 
routed  from  the  PIP  to  the  Intel  8741  stepper  motor  coordinator.  The  stepper 
motor  coordinator  then  routes  the  scenario  sequence  to  the  appropriate  stepper 
motor  controller.  Positional  information  is  routed  back  to  the  WS  via  the 
stepper  motor  coordinator  when  it  receives  a  request. 

TOW  flight  simulation  is  provided  using  point  mass  missile  dynamics 
restricted  to  the  dominant  roots  of  the  system  characteristic  equation.  The 
damping  and  natural  frequency  coefficients  conform  to  values  presented  in  the 
TOW  Weapons  System  Characteristics  Document  (T-24)  (Rev.  A.),  Hughes  Aircraft, 
13  Nov  1981.  Missile  motion  is  referred  to  the  gunner-target  line  which  is  a 
moving  axis  unless  the  target  is  stationary. 
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The  second  order  system  response  characteristic  of  the  dominant  roots 
implies  a  "Type  1"  closed  loop  control  system.  Such  systems  provide  accurate 
steady-state  response  for  a  stationary  target  but  develop  errors  for  moving 
targets.  The  simulation  effectively  removes  such  errors  by  adding  an  offset 
to  the  1  ine-of-si ght,  the  offset  being  determined  by  the  angular  velocity  of 
the  1  ine-of-si  ght. 

The  flicfit  equations  are  discussed  in  detail  in  Appendix  A. 

The  software  is  divided  into  seven  modules.  The  individual  modules 
are  described  below.  For  program  module  listings,  see  the  Appendices. 

Main  TOM  Module 

The  Main  TOW  Module  is  the  central  module  of  the  Missile  Flight  Simulator 
(MrS).  Upon  reset,  it  begins  the  simulation  by  invoking  the  procedure  PROLOG 
in  the  TOW  SPEECH  MODULE.  This  causes  Digi talker  (computer  voice  subsystem) 
to  issue  several  commands,  including  the  fire  command.  The  module  then  waits 
for  a  trigger  pull.  If  the  gunner  has  not  fired  in  two  seconds,  the  fire 
command  is  repeated.  If  the  gunner  does  not  fire  within  three  additional 
seconds,  the  simulation  is  aborted.  Upon  a  trigger  pull,  launch  sounds  are 
generated  and  the  simulation  variables  are  initialized.  The  module  then 
enters  the  main  loop,  successively  invoking  YZCNTR,  FLIGHT,  and  DODGE  until 
the  FLIGHT  procedure  sets  the  FINISHED  flag.  YZCNTR  obtains  the  gunner  aiming 
error  (GAE)  in  half  pixels.  The  FLIGHT  procedure  in  the  TOW  FLIGHT  MODULE 
then  uses  the  GAE  to  simulate  the  next  forty  milliseconds  of  the  flight.  The 
DODGE  procedure  In  the  MAIN  TOW  MODULE  then  checks  for  the  possibility  of 
target  evasion.  If  evasion  is  enabled,  this  procedure  sends  a  program  to  the 
target  motor  controller  with  random  steps,  rate,  and  direction.  The 
conditions  for  evasion  are  outlined  in  the  DODGE  procedure  listing. 

When  the  simulation  Is  finished,  several  buffers  are  filled  with  comments 
that  the  PIP  reads  and  displays  on  the  Instructor’s  monitor.  If  the  missile 
flew  past  the  target,  the  miss  distances  at  the  plane  of  the  target  are 
converted  to  AXII  and  placed  in  the  H-MIS-ASCII  and  V-MIS-ASCII  buffers.  If 
the  missile  fell  short,  the  distance  from  the  target  is  converted  to  AXII  and 
placed  in  the  X-MIS-AXII  buffer.  If  the  missile  hit  the  hill,  or  left  the 
field  of  view,  the  appropriate  special  comment  is  placed  in  the  X-MIS-AXII 
buffer  as  described  in  the  module  listing.  After  the  comments  have  been 
generated,  the  module  invokes  the  EPILOG  procedure  in  the  TOW  SPEECH  MODULE. 
The  procedure  executes  verbal  debriefing.  Finally,  the  module  enters  an 
Infinite  loop  waiting  for  a  repri se  request  from  the  Instructor. 

TOW  FI  i ght  Modul e 

This  module  consists  of  three  procedures.  INITIATE-VAR  initializes 
variables  used  by  several  of  the  modules.  The  FLIGHT  procedure  performs  the 
actual  flight  simulation.  It  first  converts  the  GAE  obtained  from  YZCNTR  to 
radians,  then  it  invokes  ACTIVE- TRACK  in  the  TOW  TARGET  MODULE  to  determine 
the  number  of  the  target  track.  The  TARGET-DATA  procedure  in  the  TOW  TARGET 
MODULE  is  then  called.  This  procedure  updates  HTARG  and  several  variables 
used  by  other  procedures  in  the  target  module.  FLIGHT  then  checks  for  sensed 
excessive  gunner  control  movement  within  3  seconds  of  launch  --  which 
symptomizes  loss  of  control.  If  the  "excessive  movement"  condition  exists, 


the  FINISHED  flag  is  set  and  a  ground  explosion  sound  is  generated.  FLIGHT 
then  determines  if  the  missile  is  within  eight  feet  of  the  target.  If  it  is, 
CURRENT- TRACK,  which  encodes  the  target  track  number,  is  used  to  invoke  the 
appropriate  TRACK  procedure  in  the  target  module.  These  procedures  ascertain 
whether  the  missile  hit  or  missed  the  target  as  described  below  in  the  TOW 
TARGET  MODULE.  Once  the  missile  is  within  eight  feet  of  the  target,  the 
FINISHED  flag  is  set,  and  a  ground  explosion  sound  is  generated  if  the  missile 
flew  past  the  target.  The  FLIGHT  procedure  then  updates  the  values  of  the 
missile  parameters.  These  values  are  then  used  to  calculate  the  new  values 
for  OFF-H  and  Z.  FLIGHT  then  invokes  the  GROUNDED  procedure  in  the  TOW  TARGET 
MODULE. 

The  GROUNDED  procedure  checks  for  missile  ground  impact.  FLIGHT  then 
examines  the  GAE  to  determine  whether  the  missile  left  the  field  of  view. 
FINISHED  is  set  in  this  case.  Finally,  the  missile  data  sample  used  by  the 
H-REPRISE  procedure  is  updated.  H-REPRISE  sends  Z  and  OFF-H  samples  from  the 
flight  to  the  PIP  which  displays  this  data  on  the  instructor's  monitor. 

This  module  Incorporates  code  which  allows  the  target  to  be  located  on  any 
track  in  any  position  at  the  time  of  missile  impact.  Further,  it  permits 
target  switching  during  the  simulation.  Because  only  one  motor  count  can 
currently  be  maintained  by  the  SMC  (Stepper  Motor  Coordinator),  these  features 
are  not  presently  required  and  have  been  disabled  as  outlined  below. 

The  target  module  consists  of  six  major  procedures.  Because  target 
switching  is  not  currently  used,  ACTIVE  TRACK  sets  the  FLIGHT  procedure 
variable  CURRENT  TRACK  to  STARTING  TRACK,  since  TARGET  SWITCH  is  initialized 
to  zero  by  INITIATE-VAR.  STARTING  TRACK  is  filled  by  the  PIP  when  the 
instructor  selects  the  scenario.  TARGET  DATA  updates  HTARG,  and  calculates 
the  value  of  ALPHA,  the  rotation  of  the  target  on  track  3  In  radians.  Because 
the  count  for  motor  5  is  not  presently  available,  INITIATE-VAR  sets  ACNT,  the 
counter  for  motor  5,  to  zero,  unless  scenario  9  is  selected,  in  which  case  it 
is  set  to  90  degrees.  Because  the  count  for  motor  4  is  not  currently 
available,  INITIATE-VAR  sets  DCNT,  the  linear  actuator  count,  to  550. 
Consequently,  DEPRESSION  DEPTH  is  always  zero  and  the  GAEZ  and  the  vertical 
tank  dimensions  are  not  modified.  If  the  target  is  on  track  2,  the  slope  of 
the  hill  and  its  height  at  the  target  position  are  obtained  for  use  by  the 
TRACK  2  procedure  when  the  missile  Is  within  eight  feet  of  the  target. 

Finally,  TARGET  Z  is  calculated  for  use  by  the  GROUNDED  procedure.  The  UPDATE 
COUNTS  procedure  Is  used  to  acquire  the  target  count.  It  is  capable  of 
obtaining  any  one  of  the  five  motor  counts.  However,  this  code  is  not 
currently  used,  since  the  SMC  maintains  only  one  count. 

The  GROUNDED  procedure  simply  determines  whether  the  missile  hit  the 
ground.  The  TRACK  1,  TRACK  2,  and  TRACK  3  procedures  determine  whether  the 
missile  hits  or  misses  the  target  on  the  respective  track. 


TOM  Speech  Modul  e 


This  module  consists  of  two  major  procedures,  PROLOG  and  EPILOG.  PROLOG 
waits  until  the  scenario  is  selected,  then  it  uses  STARTING  TRACK  to  turn  on 
the  target  IR  light.  If  the  instructor  selects  the  day  sight,  it  causes 
Digital ker  to  say  "Use  Day  Sight,"  otherwise  it  says  "Use  Night  Sight." 

PROLOG  then  waits  until  the  motors  start  before  issuing  "Alert!  Tank."  The 
direction  is  obtained  from  the  EAST  WEST  flag  set  by  the  PIP.  After  saying 
either  "East"  or  "West,"  it  causes  Digi talker  to  say  "3,000  Meters,"  pause  one 
second,  and  "At  My  Command."  PROLOG  then  waits  for  a  fire  signal  from  the 
target  motor  controller.  Upon  receipt  of  the  fire  signal  it  causes  Digi talker 
to  say  "Fire." 

EPILOG  causes  Digitalker  to  say  "Cease  Tracking"  followed  by  a  one  second 
delay.  If  the  missile  hit  the  target,  it  says  "Hit."  Otherwise,  it  uses  the 
ASCII  miss  distances  in  H-MIS-ASCII  and  V-MIS-ASCII  to  derive  the  code 
required  by  Digitalker  to  say  the  miss  distances.  If  the  missile  fell  short, 
the  X -MIS- ASCI I  buffer  is  used  for  the  same  purpose,  unless  a  special  miss 
comment  is  in  the  buffer,  in  which  case  Digitalker  says  nothing. 

Tow  Utility 


This  module  contains  four  procedures,  MISS  COfttNT  is  used  by  the  MAIN  TOW 
MODULE  to  convert  miss  distances  from  real  format  to  ASCII  format.  MISS 
C0Mf€NT  in  turn  uses  the  HX2AS  procedure  which  converts  an  integer  to  ASCII 
format.  The  SOUND  procedure  used  by  several  modules  uses  the  WHT  KIND 
parameter  to  place  signals  to  the  sound  system  on  the  parallel  connector.  The 
PPI  SET  procedure  simply  sets  up  the  8255  on  the  MFS  86/12  board. 

TOW  XF  and  TOW  IR 

TOW  XF  transfers  line-by-line  data  provided  by  the  photo-detector  line 
array  processor  into  a  complete  picture  array.  TOW  IR  analyzes  the  IR-spot 
data  array  provided  by  TOW  XF  to  compute  the  horizontal  and  vertical  gunner 
aiming  error  including  auto-boresi ght.  These  are  the  only  assembly  language 
modules  and  were  originally  written  for  DRAGON. 

C.  COMPUTER  GRAPHICS  AND  VIDEO  SUBSYSTEMS 

Computer  generated  real-time  graphics  are  controlled  by  the  Personnel 
Interface  Processor.  A  computer  graphics  board,  El  A  sync  generator  and 
phase-1  ocked-1  oop  synchronization  circuit  coordinate  the  various  raster  scan 
CCTV  monitors.  Figure  III -3  shows  the  complete  graphics  and  video  subsystem. 

A  mini-monitor  is  used  to  insert  real-time  video  graphics  for  the  gunner 
optical  sight  while  a  second  mini-monitor  is  used  in  conjunction  with  the 
thermal  sight  to  produce  thermal  video  effects.  These  graphic  effects  include 
launch  obscuration,  haze,  rocket  motor  burn,  missile  flare  and  impact 
explosion. 


Real-time  graphics  are  also  generated  for  the  instructor  console. 

Vertical  and  horizontal  gunner  aiming  error  vs.  distance,  in  100  micro-radian 
units,  is  displayed.  For  follow-up  analysis,  graphics  are  presented  showing 
missile  position  relative  to  an  imaginary  target  line  between  the  gunner  and 
his  target. 

Real-time  video  graphics  are  generated  by  the  Personnel  Interface 
Processor  (PIP).  The  PIP  receives  gunner  aiming  error  information  from  the 
missile  flight  simulator  processor  (NFS)  as  well  as  missile  angle  from  the 
line  of  sight  of  the  gunner  to  the  missile  position.  The  gunner  aiming  error 
is  used  to  position  the  final  explosion  (hit  or  miss)  in  the  TOW  sights. 

Smoke  and  haze  are  simulated  in  the  TOW  optical  sight  and  blooming  in  the 
thermal  sight  by  modulating  the  background  level,  i.e.,  overall  grey  scale 
setting  of  the  entire  graphic  video  insertion  in  the  gunner  sight. 

The  final  explosion  of  the  missile  and/or  tank  is  simulated  at  the  end  of 
the  TOW  flight  and  inserted,  via  the  RGB-256  graphics  board,  into  the  gunner 
sight.  The  explosion  is  a  series  of  geometric  star  shapes  indicating  either  a 
hit  or  miss.  The  PIP  uses  the  missile-to-aim-point  information  to  position 
the  explosion  wherever  the  missile  was  as  it  impacted  the  target  or  ground.  A 
ground  explosion  is  similar  to  a  target  explosion,  however,  it  differs  by  only 
exploding  in  an  upward  sense.  Thus,  the  TOW  gunner  has  visual  feedback 
through  his  sights  indicating  hit  and  miss.  The  computer  generated  graphics 
are  passed  directly  to  the  gunner's  sights  through  Hitachi  VM154A, 
one-and-a-quarter-inch,  closed  circuit  television  (CCTV)  monitors. 

The  TOW  computer  graphic  visual  presentation  is  prepared  by  the  PIP.  In 
addition  to  this  processor  a  computer  graphics  board,  a  phase-1 ocked-loop  sync 
board,  and  an  EIA  composite  sync  generator  are  used. 

Computer  generated  graphics  provide  three  major  functions: 

a.  Real-time  video  graphics  are  generated  for  the  gunner  day  sight. 

These  graphics  include  a  simulated  missile,  marker  flare,  smoke,  and  a  final 
explosion. 

b.  Real-time  video  graphics  are  generated  for  the  gunner  night  sight. 
These  graphics  include  a  simulated  missile,  marker  flare,  image  flare  due  to 
hot  gasses,  and  final  explosion. 

c.  Real-time  graphics  generated  for  the  instructor  indicate  both 
vertical  and  horizontal  gunner  aiming  error.  Also,  for  follow-up  analysis, 
graphics  may  be  presented  for  gunner  aiming  error  vs.  distance  and  missile 
position  vs.  distance. 

Gunner's  sight  real-time  computer  graphics  are  generated  on  a  Matrox  model 
RGB-256  (256  x  256  x  4)  graphics  board.  The  Matrox  graphics  board  produces 
256  pixels  horizontally  by  256  pixels  vertically  by  sixteen  levels  of  grey 
scale.  The  sixteen  levels  of  grey  scale  provide  for  a  range  of  visual 
intensity  which  allows  for  smoke  generation  which  varies  from  fully 
transparent  to  completely  opaque  in  sixteen  discreet  levels.  The  Matrox 
RGB-256  is  a  graphics  imaging  system  in  which  a  complete  grey  scale  capability 
has  been  integrated  onto  a  single  printed  circuit  board.  The  card  includes 
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built-in  NTSC  (American)  and  PAL  (European)  grey  scale  encoders  which  can 
provide  up  to  sixteen  shades  of  grey.  The  encoders  permit  the  RGB-256  to 
directly  drive  standard  low  cost  black  and  white  TV  monitors  on  a  single 
75  ohm  cable.  It  features  the  industry- standard  Intel  Multibus  which  makes  it 
directly  bus-compatible  with  all  Intel  single-board  computers. 

Real-time  video  graphics  are  generated  by  the  PIP.  The  PIP  receives 
gunner  aiming  error  information  from  the  MFS  as  well  as  missile  angle  from  the 
line  of  sight  of  the  gunner  to  the  missile  position.  The  gunner  aiming  error 
is  used  to  position  the  final  explosion  (hit  or  miss)  in  the  TOW  sight. 

Gunner  Graphics 


TOW  sicfit  graphic  missile  simulation  is  accomplished  by  deriving  the 
missile  position.  Second,  the  size  of  the  missile  flare  is  determined  by  the 
elapsed  time  since  the  missile  launch.  Third,  the  flare  brilliance  is 
determined  by  the  elapsed  time  since  launch. 

The  flare  size  shrinks  from  10  pixels  down  to  1  pixel  from  launch  to 
maximum  range.  The  brilliance  decays  from  a  level  of  ten  (with  fifteen  being 
most  brilliant)  to  a  level  of  zero  at  maximum  range. 

An  cctagon  was  selected  as  the  simulated  missile  shape  as  this  can  be 
quickly  calculated  for  real-time  graphics.  This  shape  appears  mostly  as  a 
circular  area  to  the  TOW  gunner. 

Smoke  and  haze  are  simulated  in  the  TOW  sight  by  modulating  the  overall 
grey  scale  setting  of  the  entire  graphic  video  insertion  in  the  gunner  sight. 
It  is  possible  to  tell  the  graphics  board  to  "erase"  to  any  given  grey  scale 
level  between  zero  and  fifteen,  with  zero  being  black  (transparent  in  the 
qunner's  sight)  and  fifteen  being  white  (opaque  in  the  gunner's  sight).  The 
levels  of  background  are  modulated  with  time  to  effect  a  smoke  and/or  haze 
simulation.  A  typical  smoke  simulation  might  consist  of  starting  from  level 
zero  rising  to  level  fifteen,  dropping  to  level  eight,  back  up  to  fifteen, 
down  to  four,  up  to  eight  and  down  to  zero  during  a  period  of  one  to  two 
seconds. 

The  final  explosion  of  the  missile  and/or  tank  is  simulated  at  the  end  of 
the  TOW  flight  and  inserted,  via  the  graphics  board,  into  the  shapes 
indicating  either  a  hit  or  miss.  The  PIP  uses  the  missile-to-aim-point  data 
to  superimpose  the  explosion  at  the  last  calculated  missile  position.  A 
ground  explosion  differs  from  a  target  explosion  by  exploding  only  in  an 
upward  sense  and  for  only  half  the  duration  of  a  target  explosion.  This 
difference  provides  the  TOW  gunner  with  visual  feedback  through  his  sight 
indicating  hit  or  miss.  The  computer  generated  graphics  are  passed  directly 
to  the  gunner's  sight  through  an  Hitachi  VM154A  one-and-a-quarter-i nch  closed 
circuit  television  (CCTV)  monitor.  The  optical  arrangement  is  shown  in 
Figure  1 1 1 -1 .  The  television  screen  appears  at  infinity  along  with  the  viewed 
scene  through  the  day  or  thermal  sight.  One  CCTV  camera  is  mounted  inside  the 
TOW  day  sight  and  another  in  the  thermal  sight.  Video  support  electronics  are 
located  as  near  as  possible  to  the  cathode  ray  tube  for  maximum  high  frequency 
response. 
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Instructor's  Console  Graphics 


The  instructor  console  graphics  subsystem  is  composed  of  two  units,  (1)  a 
video  replica  of  the  gunner  sight  picture  and  (2)  a  graphic  plot  of  gunner 
aiming  error  vs.  distance  or  missile  position  vs.  distance. 

The  representation  of  the  gunner's  sight  is  accomplished  by  mixing  the 
output  of  the  gunner  sight  TV  camera  with  the  video  graphics  presented  to  the 
gunner's  sight.  This  composite  picture  thus  presents  to  the  instructor  an 
image  of  the  gunner's  view.  In  addition,  the  flight  time  of  the  simulated 
missile  and  the  current  date  are  notated  at  the  bottom  of  the  screen. 

Scenic  coverage  of  the  model  board  is  by  a  closed  circuit  television 
(CCTV)  camera  mounted  outboard  on  the  day  sight  housing.  This  camera  is 
boresighted  to  the  gunner's  day  and  thermal  sights.  The  camera  used  is  an  RCA 
TC-2021/N  with  a  NINICON  camera  tube.  The  CCTV  video  is  combined  with  that  of 
the  Matrox  RGB-256  graphic  generator.  The  combination  of  CCTV  video  and 
computer  graphics  is  then  a  representative  visual  image  of  the  gunner  sight 
picture  except  for  the  crosshairs.  Crosshairs  are  added,  to  complete  the 
instructor  sight  picture  display,  by  passing  the  video  presentation  through  a 
Colorado  Video  Model  260  electronic  crosshair  generator. 

The  graphical  plots  of  the  gunner  aiming  error  (GAE)  vs.  distance,  in  100 
micro-radian  units,  for  both  azimuth  and  elevation  error  are  presented  in 
real-time  during  missile  flight.  The  graphs  show  the  actual  gunner  aiming 
errors  as  well  as  any  loss  of  guidance  during  the  flight.  The  trainee  name, 
scenario  number,  range  of  target,  and  type  of  sight  used  for  the  scenario  are 
notated  on  the  margin  for  record  keeping. 

For  a  miss,  the  displayed  results  show  the  deviation  from  target  in  meters 
and  tenths  of  meters  where  the  missile  passed  the  target  plane.  If  the 
missile  struck  the  ground  before  passing  the  target,  a  message  is  displayed 
stating  "GROUND  IMPACT"  as  well  as  the  distance  remaining  to  the  target.  If 
the  target  is  hit,  then  either  "HIT  KILL"  or  "HIT  DISABLE"  is  displayed.  A 
"HIT  KILL"  is  proclaimed  if  the  missile  has  been  calculated  to  have  impacted 
within  the  center  third  of  the  target,  likewise,  "HIT  DISABLE"  is  proclaimed 
if  the  missile  impacted  the  target  outside  the  center  third  of  the  target. 

(See  Figures  1 1 -2  through  II -5.) 

After  the  missile  impact  a  reprise  of  the  flight  may  be  called.  The 
missile  position  vs.  range  in  both  azimuth  and  elevation  is  replayed  on  a 
real-time  basis.  This  display  as  well  as  the  gunner-aiming-error  display  may 
be  printed  out  on  a  hard  copy  printer  in  less  than  twenty  seconds  time. 


0.  COMPUTER  VOICE  SYSTEM 


Human-like  speech  firing  commands  are  given  the  trainee  by  a  speech 
processor.  The  computer-generated  voice  can  also  coach  the  student  when 
selected,  i.e.,  "high,"  "low,"  "right"  and  "left."  The  computer-generated 
voice  unit  also  tells  the  trainee  where  the  missile  impacted  and  when  the 
mission  is  completed.  The  computer-generated  voice  serves  to  coordinate  the 
training  session  by  issuing  the  firing  commands  at  a  specific  point  in  the 
scenario,  thus  relieving  the  instructor  of  this  task. 

Firing  commands  consist  of  the  following: 

[Squad] 

[Tanks] 

[North] 

[South] 

[East] 

[West] 

[3,000] 

[Meters] 

[At  my  command. . .Fire] 

[Cease  tracking] 

Debrief  commands  consist  of: 

[Hi  t] 

[Miss] 

[Hicfi] 

[Low] 

[Ri  ght] 

[Left] 

followed  by  distance  in  meters,  i.e.,  [Miss  -  High  -  Ten  Meters]. 

The  computer  voice  is  generated  using  a  board  containing  a  National 
Semiconductor  "Digitalker"  Speech  Chip  and  Speech  ROMS.  The  board  also 
contains  an  Intel  8741  Programmable  Peripheral  Interface  chip,  random  logic 
for  address  decoding,  and  analog  components  to  filter  the  output  of  the 
"Digitalker."  This  system  produces  a  natural  sounding  voice  under  the  control 
of  the  Missile  Flight  Simulator  (ffS)  board. 

Refer  to  the  block  diagram  in  Figure  1 1 1  -4  for  the  discussion  in  this 
section.  The  circuit  schematic  is  shown  in  Figure  1 1 1 -5  through  III-8. 

The  8741  Programmable  Peripheral  Interface  connects  the  National 
Semiconductor  "Digitalker"  to  the  Intel  "Multibus"  which  this  system  uses  for 
inter-board  communication.  The  8741  performs  two  functions.  First,  on 
power-up  or  system  reset,  it  performs  a  routine  which  set  up  the  speech  chip 
in  the  proper  configuration.  Secondly,  the  8741  translates  between  "Multibus' 
and  "Digitalker"  bus  signals. 
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Figure  1 1 1  — 4 .  Computer  Synthesized  Voice  Subsystem. 


SPEAKER  CONN. 


TL 

074 

OP  AMP  OP 

COMPONENTS  AMP 


□ 


Figure  1 1 1 -5 . 


Integrated  Circuit  Complement  for 
Computer  Synthesized  Voice  Subsystem 
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The  speech  chip  accepts  data  from  the  8741  and  processes  it  to  produce  an 
analog  signal  representing  the  desired  word  or  phrase.  The  data  are  actually 
the  beginning  addresses  of  code  for  the  desired  words  or  phrases  in  the  speech 
ROMS.  When  the  speech  processor  receives  a  proper  beginning  address,  it  reads 
the  data  and  converts  the  digital  coding  into  an  analog  output.  This  output 
is  the  desired  word  or  phrase  plus  a  large  number  of  high  frequency 
harmonics.  These  harmonics  must  be  filtered  out  in  order  to  produce 
intelligible  speech.  That  is  the  purpose  of  the  analog  filter  on  the  board. 
The  output  of  this  filter  can  be  amplified  or  used  to  drive  a  small  speaker 
directly. 

A  UA723  quad  op-amp  chip  with  appropriate  resistors  and  capacitors  is  used 
to  implement  a  band-pass  filter  with  the  frequency  response  recommended  in 
Figure  5  of  National  Semiconductor  Application  Note  252  (by  Jim  Smith  and  Dave 
Weinrich,  December  1980). 

Provision  has  been  made  to  install  a  Burr-Brown  PGA100AG 
Digitally-Controlled  Programmable  Gain/Multiplexed  Input  Operational  Amplifier 
chip  in  the  circuit  between  the  filter  and  the  speaker.  This  makes  it 
possible  to  add  software  gain  control  of  the  speech  by  installing  the  chip  on 
the  board. 

In  order  to  use  the  computer  voice  boards,  it  must  be  plugged  into  the 
"Multibus."  The  address  for  data  is  0D000H  and  the  address  for  the  8741 
status  register  is  0D002H.  Before  data  are  sent  to  the  computer  voice  board, 
the  controlling  processor  must  first  check  to  see  if  the  8741  is  ready  to 
receive  data.  This  is  done  by  reading  the  status  register  and  checking  the 
second  bit  (bit  1).  If  the  bit  Is  a  logical  one  then  the  computer  voice  board 
is  busy  and  the  controlling  processor  {^S  board)  must  wait  until  it  is  not 
busy.  The  "Multibus"  Inverts  all  data  and  address  Information.  The  address 
decoding  logic  of  the  Computer  Voice  board  re- Inverts  the  address.  Therefore, 
the  address  should  be  send  "true."  All  data,  however,  must  be  sent  inverted 
or  Inverted  upon  reception. 

Once  the  controlling  processor  has  determined  that  the  computer  voice 
board  is  ready  to  receive  data,  it  writes  a  byte  of  data  to  the  data  address. 
The  busy  flag  must  be  checked  before  each  byte  is  sent. 

For  each  word  or  phrase  that  is  to  be  spoken,  the  computer  voice  board 
must  receive  three  bytes  of  data.  The  first  should  be  the  page  of  memory 
where  the  data  are  located.  The  second  is  the  address  of  the  data  within  the 
page.  The  third  is  the  volume  desired.  Since  the  volume  control  chip  has  not 
been  installed,  this  byte  has  no  effect  on  the  speech.  The  byte  must  be  sent, 
however,  because  the  software  in  the  8741  expects  to  receive  volume  control 
Information  and  the  board  will  not  function  without  it.  The  volume  control 
byte  may  have  any  value;  however,  to  be  safe  should  the  volume  control  chip 
ever  be  installed,  this  byte  should  be  zero.  This  makes  the  software  fully 
compatible  with  the  volume  control  chip,  whether  or  not  it  is  present  on  the 
board. 
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The  computer  voice  board  will  remain  busy  until  it  has  completed  saying  a 
word  or  phrase  unless  it  is  reset  by  the  system  reset.  Since  this  is  in  the 
millisecond  range,  it  may  cause  problems  for  the  controlling  processor  unless 
this  is  taken  into  account  when  software  is  written. 

A  flowchart  of  this  software  is  provided  in  Figures  I II -9  through  III-ll. 

A  source  code  listing  is  included  in  the  Appendix  of  this  report.  The  first 
section  of  code  initializes  the  computer  voice  board.  The  gain  control  word 
is  set  to  zero  to  produce  unity  gain.  The  8741  contains  a  short  routine  which 
causes  the  speech  chip  to  Initialize  Itself.  This  is  necessary  because  the 
speech  chip  has  no  hardware  reset  pin.  It  is  therefore  necessary  to  send  a 
set  of  commands  which  cause  the  speech  chip  to  cycle  through  its  built-in 
routine  and  stop  at  the  beginning  of  the  routine. 

After  the  initialization  has  been  completed,  the  8741  enables  its  data-bus 
interrupt  and  enters  a  software  halt  loop.  The  status  register  will  now  show 
that  the  8741  is  ready  to  receive  data.  Reception  of  the  first  data  byte, 
which  should  be  a  page  number,  causes  the  8741  to  enter  a  loop  which  inputs 
the  page  number,  the  word  address,  and  the  volume  control  byte  and  stores  them 
in  its  internal  RAM.  Once  all  three  control  bytes  have  been  received,  the 
8741  proceeds  to  output  the  proper  control  signals  to  latch  this  information 
into  speech  ROM  address  decode  logic,  the  speech  chip,  and  the  volume  control 
chip.  When  this  process  is  complete  the  8741  reenters  the  halt  loop.  The 
purpose  of  receiving  all  three  bytes  before  outputting  anything  is  to  minimize 
the  time  that  the  controlling  processor  must  remain  tied  up  sending  the  data. 

A  description  of  the  controlling  processor  is  contained  in  the  TOW  Speech 
Module.  The  controlling  processor  and  Its  operating  format  are  described  in 
TOW  Speech  Module  (Sec.  Ill  C,  above). 

The  speech  data  in  the  speech  ROMS  are  encoded  to  reduce  the  amount  of 
storage  space  needed.  This  Is  done  in  a  number  of  steps.  First  the  waveform 
is  phase-angle  adjusted  to  produce  mirror  symmetry.  Second,  the  low-level 
portions  of  the  waveform  are  replaced  with  zeros.  Delta  modulation  is  used  to 
encode  the  remaining  waveform.  As  a  result,  only  one  fourth  of  the  original 
waveform  actually  must  be  encoded.  These  data,  along  with  information  on 
periods  of  silence  (zeroed  section  of  the  waveform)  and  mirroring  are  all  that 
need  be  stored.  The  speech  chip  uses  this  stored  information  to  reproduce  an 
approximation  of  the  original  waveform  that  is  close  enough  to  the  original 
that,  with  the  proper  filter,  amplifier,  and  speaker,  the  original  speaker  can 
be  recognized.  For  further  Information  refer  to  National  Semiconductor  AN-252. 

The  computer  voice  board  is  used  for  three  basic  purposes  which  will  be 
described  in  the  following  paragraphs.  These  are:  (1)  coaching  the  trainee 
during  a  missile  simulation,  (2)  debriefing  the  trainee  at  the  end  of  a 
simulation,  and  (3)  assisting  the  squad  leader  by  generating  the  repetitive 
commands  specified  by  the  TOW  manuals. 

Coaching  Is  an  optional  function  that  uses  words  such  as  "low,"  "high," 
"left,"  "right,"  etc.,  to  correct  the  trainee's  aim.  Coaching  is  selected  by 
typing  a  control-C  character  (i.e.,  by  holding  down  the  key  marked  "CNTL"  on 
the  keyboard  and  pressing  the  letter  "C").  A  control-N  will  disable  the 
coaching. 


Figure  III —10 .  Flowchart  of  Tank-Unit  Procedure 


Figure  I II -11.  Flowchart  of  Tank-Start  and  Tank-Killed  Procedures 


At  the  end  of  a  simulated  missile  flight,  the  system  will  announce  "hit" 
or  "miss"  according  to  the  student's  performance.  Further,  if  a  miss 
occurred,  the  direction  and  distance  of  the  miss  will  be  announced. 

The  TOW  manuals  recommend  a  number  of  repetitive  commands,  such  as  "squad, 
tank,  east,  3,000  meters,"  and  "fire,"  which  the  system  issues  by  using  the 
computer  voice  board.  These  commands  are  used  during  each  missile  flight 
simulation  as  appropriate  to  the  selected  scenario. 

The  computer  voice  provides  coaching,  debriefing  and  the  issuance  of 
repetitive  coranands.  Voice  recognition  offers  the  possibility  for  future 
system  enhancement  by  allowing  personnel  to  communicate  verbally  with  the 
system  control  s. 

E.  COMPUTER  GENERATED  SOUND  SYSTEM 

Simulation  of  sounds  produced  during  an  actual  TOW  missile  firing  is 
accomplished  by  interfacing  a  pair  of  Intel  8748  microcomputers  to  three 
General  Instruments  AY-3-8910  programmable  sound  generators.  These 
microcomputers  are  referred  to  as  the  TOW  SOUND  CONTROLLER  (TSC)  and  the 
RETURN  FIRE  CONTROLLER  (RFC)  in  Figure  1 11-12.  Also  shown  on  the  block 
diagram  are  the  three  programmable  sound  generators,  PSG-A,  PSG-B  and  PSG-C. 
Figure  1 11-13  is  a  detailed  schematic  of  the  interconnections  between  these 
devices. 

Data  necessary  for  the  PSGs  to  produce  sound  are  stored  in  the  permanent 
memory  of  the  TSC  and  the  RFC.  During  missile  flight  time,  the  MFS  processor 
simply  selects  the  sound  to  be  made  and  communicates  Its  choice  over  the  4-bit 
bus  designated  in  Figure  III -13  by  lines  INTERRUPT,  DAT A1 ,  DAT AO,  and  RETURN 
FIRE.  This  approach  allows  the  MFS  processor  to  handle  sound-making  decisions 
with  minimum  time  taken  from  its  primary  functions.  The  table  below  describes 
the  choice  of  sounds  available  to  the  MFS  processor  and  the  corresponding 
4-bi t  bus  value: 


INTERRUPT  / 

DATAl 

/  DAT AO  / 

RETURN 

(1) 

Gyro  wind-up. 

Launch  explosion,  and 
Rocket  motor  burn 

0 

1 

1 

1 

(2) 

Target  hit  explosions 

0 

1 

0 

1 

(3) 

Ground  impact 
explosion 

0 

0 

1 

1 

(4) 

Return  fire  sounds 

1 

X 

X 

0 

Microcomputer  RFC  is  dedicated  to  producing  return  fire  sounds  only. 

PSG-C  is  connected  directly  to  the  RFC  and  is  dedicated  to  it.  If  the  4-bit 
word  shown  in  (4)  appears  on  the  bus  ( DAT  A1  and  DAT  AO  are  "don't  cares"),  then 
a  sound  simulating  an  incoming  round  is  produced.  It  is  recommended  that 
either  an  8749-  or  an  8751-based  sound  system  be  implemented  In  future 
prototypes  in  order  to  provide  a  broader  range  of  sounds  within  a  single  chip. 
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The  MrS  processor  detects  trigger  puli  and  signals  the  TSC  with  the  4-bit 
word  shown  as  (1)  in  the  table  above.  No  more  than  15  microseconds  are 
required  by  the  TSC  to  capture  the  values  of  DATAl  and  DAT AO  on  port  1.  The 
TSC  decodes  this  word  to  mean  trigger  pull  and  initiates  a  sequence  which 
automatically  produces  a  1.5  second  gyro  wind-up  sound,  followed  by  a  launch 
explosion,  followed  by  a  0.5  second  rocket  motor  burn,  and  ending  with  a  sound 
which  simulates  the  missile  fading  into  the  distance.  Likewise,  if  the  TSc 
decodes  the  word  as  shown  in  (2)  then  a  series  of  3  explosions,  increasing  in 
amplitude,  are  produced  through  PSG-B.  A  single  ground  impact  explosion  is 
produced  through  PSG-B  when  the  word  in  (3)  is  decoded.  Complete  software 
listings  for  the  TSC  and  the  RFC  are  shown  in  Appendix  D. 

The  General  Instruments  programmable  sound  generator  is  a  40-pin,  8-bit 
device  with  mi croprocessor  compatibility.  The  device  features  three 
independent  analog  channels,  each  with  access  to  its  own  tone  generator,  a 
16-control  register  array  communicates  to  the  microcomputer  through  ~n  8-bit 
bi-directional  port.  Four  lines  are  alloted  for  bus  control  logic  (read, 
write,  and  chip  select).  Each  tone  generator  looks  to  two  registers  within 
the  array  for  a  12-bit  tone  period.  A  range  of  frequencies  covering  the  full 
eight  octaves  of  the  equal -tempered  chromatic  scale  is  available. 

Pseudo-random  noise  may  be  mixed  to  any  or  all  channels  from  a  noise 
generator  with  basic  frequencies  of  4  Khz  to  125  Khz.  Two  modes  of  output 
control  are  available  for  each  channel:  fixed  and  variable  amplitude.  The 
fixed  level  amplitude  mode  selects  an  amplitude  specified  in  the  array  by  the 
microcomputer.  For  use  in  this  system  the  variable  amplitude  mode  is 
selected,  forcing  an  envelope  generator  to  control  the  shape  and  cycle  of  all 
outputs.  Controlling  tne  envelope  generator  is  a  16-bit  tone  period  within 
the  array  allowing  for  frequency  ranges  of  12  Hz  to  8  Khz  and  a  5-bit 
shape/cycle  control  register.  Three  D/A  converters  supply  0  to  1  volt  signals 
to  the  output  channels. 

F.  MINIATURE  TARGET  BOARD 

The  STAGS-TOW  lab  model  sight  optics  yield  magnifications  and 
fields-of-view  replicating  those  of  the  operational  sights  of  approximate! y 
3000  m.  This  scale  range  was  chosen  so  as  to  take  advantage  of  ready 
availability  of  1:285  scale  models.  These  models  are  commonly  used  in 
war-gaming  and  come  in  all  NATO  and  WARSAW  PACT  vehicles. 

These  low  cost  models  are  manufactured  by  "Micro  Arnior"  and  have  excellent 
detail.  The  models  are  modified  so  that  they  ride  securely  along  the  track 
and  are  easily  interchangeable. 

In  order  to  provide  a  variety  of  scenarios  with  which  a  trainee  can  engage 
a  target,  three  tracks  with  unique  characteri sties  have  been  mounted  inside 
the  terrain  board.  Targets  on  all  three  tracks  run  perpendicular  to  the 
trainee's  line  of  sight  and  can  move  either  1  ef  t-to-ri  ght,  or  right-to-left. 
The  chain  mechanisms  which  carry  the  targets  along  the  tracks  are  driven  by 
Superior  Electric  "Slo-Syn"  synchonous/steppi  ng  motors  with  200  steps  per 
revolution.  The  frontmost  track  (Track  1)  has  the  added  capability  of 
vertical  movement  of  the  target.  An  Airpax  linear  actuator  is  mounted  with 
the  chain  mechanism  and  raises  or  lowers  the  target  to  simulate  moving  over 
rough  terrain,  or  driving  into  (out  of)  a  ravine.  The  center  target  (Track  2) 
moves  over  hilly  to  rain  and  developes  the  trainee’s  skill  at  combined 


elevation-and-azimuth  control  of  the  missile.  The  rearmost  target  (Track  3) 
moves  in  and  out  of  cover  provided  by  the  hills  of  Track  2.  This  target  can 
rotate  about  its  axis  while  moving  laterally  which,  through  the  sight,  appears 
as  a  frontal  or  oblique  target.  Rotation  is  imparted  through  a  North  American 
Phillips  stepping  motor  (7.5  degrees  per  step)  mounted  with  the  chain 
mechanism.  All  motors  are  driven  from  similar  Darlington  drive  circuits, 
shown  in  Figure  III-14.  These  drive  circuits  reside  inside  the  terrain 
board.  Four  Darlington  pairs  exist  for  each  phase  of  a  stepper  motor. 

All  targets  move  across  40-inch  tracks.  The  stepper  motors  traverse  this 
distance  in  5,240  steps,  which  equates  to  a  positional  accuracy  of  .0076 
inches  at  any  point  along  the  track.  By  using  the  1/285  scale  models,  the 
position  of  a  tank  at  a  range  of  3,000  meters  in  the  real  world  is  known  to 
within  2.18  scale  inches. 

Each  track  has  an  infrared  light  source  which  moves  with  the  target.  The 
light  is  provided  by  an  incandescent  lamp  filtered  by  an  87C  Kodak  Wratten 
Gelatin  filter.  A  light  pipe  is  used  as  a  conduit  and  is  bent  to  project  the 
light  toward  the  student  station.  The  lamps  operate  independently  and  are 
controlled  by  the  MFS  processor.  Scenarios  av-  written  in  a  manner  which 
provides  a  single  light  source  throughout  the  i.  ssile  flight.  In  this  way, 
multiple  targets  can  be  presented  to  the  trainee  so  long  as  only  one  target  is 
present  when  the  missile  reaches  the  target  plane.  This  concept  also  provides 
for  a  transfer  of  targets  during  the  first  seconds  of  flight  time.  The  driver 
circuit  for  the  lamps  is  mounted  inside  the  terrain  board;  the  schematic  is 
presented  in  Figure  1 11-15. 

A  model-control  board  resides  within  the  instructor's  console.  Five 
intelligent  stepper  motor  controllers  are  mounted  on  this  board,  each 
dedicated  to  one  of  the  five  stepper  motors  driving  the  targets. 

Figure  III  -16  is  a  block  diagram  of  the  model -control  board  and  Figure  1 1 1  -1 7 
is  a  detailed  schematic. 

The  controllers  utilized  are  Cybernetic  Microsystems  CY512.  The  CY512 
controller  is  a  standard  five-volt,  40-pin  LSI  device  configured  to  control  a 
4-phase  stepper  motor.  The  CY512  interfaces  to  a  microcomputer  through  a 
bi-directional  8-bit  port.  High  level  commands  sent  to  the  CY512  are  stored 
in  an  internal  program  buffer.  The  CY512  then  acts  as  a  stand-alone  device 
controlling  the  stepper  motor  in  accordance  with  the  program  in  the  buffer. 

Scenarios  are  selected  at  the  instructor's  console.  These  scenarios  are  a 
sequence  of  high  level  commands  stored  in  the  PIP.  When  the  instructor 
initiates  the  scenario,  the  PIP  passes  these  commands  to  the  Stepper  Motor 
Coordinator  (MC).  This  device  is  an  Intel  8741  Universal  Peripheral  Interface 
which  resides  on  the  model -control  board  (see  Figure  1 11-17) .  The  MC  decodes 
the  data  from  the  PIP  and  routes  the  high  level  commands  to  the  proper  Stepper 
Motor  Controller  (SMC-1  through  SMC -5  in  Figure  1 11-17).  Two  input/output 
(I/O)  expanders  (Intel  8243s),  shown  as  IOE-A  and  IOE-B  on  Figure  1 1 1 -1 7 , 
provide  the  MC  with  the  I/O  necessary  to  monitor  and  control  the  flow  of  data 
to  al 1  five  SMCs. 
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The  MFS  processor  requires  the  position  of  the  target  be  known  at  all 
times  throughout  the  missile  flight.  Although  scenarios  may  call  for  movement 
of  two  or  more  tanks,  only  one  of  them  can  be  a  hit-eligible  target,  for 
threat-vulnerability  and  target-transfer  training  considerations.  The  MC  is 
instructed  as  to  which  track  the  target  resides  upon.  By  monitoring  the  PULSE 
lines  of  SMC-1,  SMC -2,  and  SMC -3,  the  MC  is  able  to  keep  an  ongoing  count  of 
the  target  position  and  pass  this  count  to  the  MFS  on  command. 

SMC-1,  -2,  and  -3  signal  the  MFS  processor  when  to  issue  the  vocal  command 
"Fire."  The  scenario  loaded  into  the  controller  instructs  the  controller  as 
to  the  point  in  time  when  to  strobe  the  programmable  output  pin  shown  as  FIRE 
in  Figure  I II -14.  This  signal  travels  directly  from  the  model  control  board 
to  the  fFS  processor. 

A  complete  listing  of  the  software  contained  within  the  MC  appears  in 
Appendix  E. 

G.  TOW  STATISTICAL  PACKAGE 

The  TOW  Statistical  Package  adds  computational  programs  to  supply  GAE  data 
in  terms  of  cumulative  mean  and  standard  deviation  statistics  compiled  from 
periodic  sampling  of  the  data  shown  in  the  GAE  graphic  displays. 

Aiming  errors  in  both  elevation  and  azimuth  are  shown  in  Figure  I I I -1 8 . 
Figures  1 11-19,  1 11-20  and  1 11-21  show  the  output  of  the  STAGS-T  Statistical 
Package  for  the  complete  flight  and  for  a  partitioning  of  the  flight  into  time 
intervals  of  [0,4]  and  [4,14]  seconds. 

The  TOW  Statistical  Package  was  added  to  STAGS-T  in  response  to  a  request 
from  the  U.S.  Army  Human  Engineering  Laboratory  dated  20  January  1983. 

STAGS-T  program  additions  to  provide  the  statistical  capability  are 
detailed  in  Appendix  G. 
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Figure  I I I —1 8 .  Gunner  Aiming  Error  in  Elevation  and  Azimuth. 
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Figure  1 1 1— 1 9.  Statistics  for  Complete  Flight. 
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Figure  III —20 .  Interval  [0,4]  Statistics. 
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Figure  1 11-21.  Interval  [4,14]  Statistics. 


SECTION  IV 


CONCLUSIONS 

This  system  has  undergone  preliminary  evaluation  by  both  U.S.  Marine  Corps 
and  U.S.  Army  experienced  TOW  gunners.  All  gunners  were  favorably  impressed 
with  its  realism  and  teaching  attributes.  The  U.S.  Army  Infantry  School  has 
proposed  Training  Effectiveness  Evaluation  in  2FY84. 

STAGS  research  models  have  been  designed  for  both  DRAGON  and  TOW. 

The  STAGS-DRAGON  is  currently  under  contract  for  Engineering  Development 
models;  STAGS- TOW  is  about  to  enter  the  same  status. 

Investigation  Is  underway  to  seek  out  other  weapon-systems  for  which 
exploitation  of  the  STAGS  technology  could  fulfill  training  needs  now  not 
adequately  addressed. 
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APPENDIX  A 

TOW  FLIGHT  SIMULATION  EQUATIONS 

This  appendix  describes  the  mathematical  model  of  TOW  flight  dynamics  as 
implemented  in  STAGS-TOW. 

The  initial  model  was  based  on  constant  values  for  system  damping  and 
natural  frequency  as  well  as  constant  missile  velocity.  The  final  model  is 
similar  except  for  the  inclusion  of  variable  damping,  natural  frequency,  and 
down-range  velocity.  These  system  characteristics  are  treated  as 
quasi-stationary  in  the  incremental  solution  to  the  flight  equations. 

Design  considerations  for  the  TOW  missile  components  as  well  as  the 
overall  system,  which  is  of  primary  importance  for  STAGS-T,  are  detailed  in 
the  TOW  2  Weapon  System,  Systems  Characteristic  Document  (T-24)  Revision 
A.l  As  stated  on  pages  3-58  and  3-63  of  the  Systems  Characteristic  Document 
(T-24),  "The  primary  closed  loop  system  response  is  characterized  by  a  pair  of 
underdamped  poles."  A  design  goal  was  a  damping  ratio  between  0.4  to  0.5. 

The  closed  loop  natural  frequency  ranges  from  8  to  2  radians  per  second.  The 
Laplace  transformed  system  function  for  horizontal  motion  is  therefore 


Y  (s)  _  tt)2 

Yc  (s)  S2  +  2  £ti)  4”  Ci>2 


where  s  =  Independent  Laplace  variable 

Y  =  Horizontal  distance  of  the  missile  from  the  initial  launch  line 
Yc  =  Commanded  Y  distance 
£  =  Damping  constant 

(D  =  Undamped  natural  frequency,  radians  per  second. 

An  identical  expression  holds  for  vertical,  Z,  displacements  although  the 
damping  ratios  and  natural  frequency  parameters  are  slightly  different. 

The  command  displacement  in  the  Y  direction  is  influenced  by: 

(a)  Target  motion 

(b)  Gunner  aiming  error 

(c)  Compensation  for  missile  horizontal  acceleration  as  discussed 

later. 

Vertical  or  Z  displacement  commands  are  similar  except  that  possible 
evasive  maneuvers  are  very  limited  with  the  result  that  the  differential 
equation  for  this  direction  is  somewhat  simpler. 


t.  TOW  2  Weapon  System,  Systems  Characteristic  Document  (T-24)  Revision  A, 
Contract:  0AAHO1-79-C-136O,  13  November  1981. 
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Ideally,  the  gunner  aiming  error  will  be  zero  and  the  missile  should  fly 
along  the  target  line  from  launch  to  target  impact.  Thus,  for  this  ideal 
situation 


yc  (0  =  a  (t)  *  X  (t) 


where  t  =  Time 

x  =  Downrange  distance 

Yc  =  Commanded  horizontal  distance  of  missile  from  the  launch  line 
a  =  Horizontal  angular  position  of  target  relative  to  launch  line. 

Errors  and  Compensation 

Yc  ,a  ,  and  x  are  functions  of  time;  generally  unspecified,  but  two 
special  cases  yield  considerable  insight  into  system  behavior.  Both  special 
cases  are  characterized  by  constant  downrange  missile  velocity, Vx  ,  thus 


x(t)=Vx  •  t 


Case  1  is  further  limited  so  that  a(t)  =  aD  ,  a  constant. 

Case  2  is  restricted  to  constant  target  velocity  in  radians  per 
second.  Thus  a(t)=aijt  . 

For  Case  1: 


Yci  (t)  =  a0vxt 


and  for  Case  2: 


(5)  Yc2(t)  =  wTvxt2 

When  considered  as  a  classical  closed-loop  control  system.  Case  1 
represents  a  ramp  or  constant  velocity  input  for  0  <  t  while  Case  2  represent- 
a  parabolic  or  constant  acceleration  input  for  0  <  t. 
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All  systems  which  can  be  described  by  equation  (1)  are  said  to  be  "Type  1 
systems."  Such  systems  respond  to  ramp  and  parabolic  inputs  in  well-defined 
ways  once  initial  transients  have  died-out  and  steady-state  conditions  are 
attained.  Defining  error, e 


(<5)  e  (t)  =  yc  (t)  -  y  (t) 


and 


•  v  A 

(7)  e(t)  = 


de(t) 

dt 


Table  I  may  be  shown  to  apply  during  steady-state  for  the  two  cases  of 
interest. 

Table  I.  Errors  Caused  by  Specified  Inputs. 


CASE  1 

CASE  2 

constant  velocity 
vel  =  aQVx 

0  <  t 

-  -  -  -  - 

constant  acc 

acc  ==  2  ti>T  Vx 

0  <  t 

e  steady-state 

(I)2 

oo 

e  steady-state 

0 

^  (Vx  Wx) 
or 

From  Table  I : 

(a)  A  steady  state  miss  error  occurs  when  the  target  is  stationary  at  an 
offset  angle,  aQ  »  from  the  launch  line. 


(b)  A  uniform  target  cross  range  velocity,  VTArg  ,  causes  a  uniform 

target  angular  velocity,  cut  =  Vtarg/Xtarg  •  This  results  in 

an  unbounded  error  as  time  becomes  infinite  but  the  error  has  a 
finite  rate  of  increase  as  given  by  the  right  hand  bottom  entry  in 
Table  I. 


(8) 


steady-state 


Vtarg  \1 
XjARG^  J 


An  error  compensation  for  Case  2  can  be  made  by  adding  a  compensating  lead 
term  to  the  command  input  such  that 


(9) 


Ycomp 


Vtarg 

Xtarg 


defining 


(10) 


A4|tO 
Iv  o 

<J)2 


and  assuming  constant  Vx  ,  so  that 


(ID 


x  =Vxt 


the  compensation  term  becomes 


(12)  Ycomp  Xx  (VTARG  /  Xxarg  ) 


K  as  defined  in  equation  (10)  is  based  on  steady-state  conditions.  A 
first-order  correction  to  K  which  accounts  for  a  finite  missile  fliqht  time 
may  be  shown  to  be 


M  Ti 


K  t  —  (1  —  4£2)/2£<P 


This  is  plotted  on  Figure  A-l.  For  a  typical  flight  time  of  11  seconds,  the 
correction  to  K  =  1-03  or  3  percent. 

Including  the  correction  from  (13)  in  (9)  and  (3) 


(14) 


(V  TARG  \ 

Xtarg  / 


With  the  actual  TOW  system  the  target  velocity  may  be  inferred  by  the 
sight  azimuth  sweep  rate,  i.e.,  it  may  be  considered  that 


(15) 


^  SIGHT 


0) sight  provides  a  signal  which  is  proportional  to  the  target  cross-track 
horizontal  velocity  provided  no  gunner  aiming  error  is  present.  Even  with 
some  gunner  aiming  error  it  might  be  assumed  that  error  averages  to  zero  and, 
therefore,  may  be  neglected.  In  STAGS-T  target  position  and  gunner  aiming 
error  are  measured.  Letting  represent  gunner  aiming  error 


(16) 


0) 


SIGHT 


d«  d£ 

dt  +  dt 


w  SIGHT 


Thus  in  simulating  the  TOW  system  with  Wsight  representing  ^target  we  have 
from  equation  (14) 


(17) 


Ycom,  =  KxdI(“+/5) 


The  commanded  y<  (t)  ,  therefore,  is 

(18)  y<  (t)  =  a(t)x(t)  +  £(t)x(t)  +  Kx(t)-^  [a(t)  +  /S(t)] 


Considering  the  riqht  hand  side  of  (18):  the  first  term  is  due  to  target 
displacement  from  the  initial  launch  line;  the  second  term  represents  the 
effect  of  gunner  aiming  error,  while  the  last  term  provides  compensation. 


Figure  A- 


Figures  A-2  and  A-3  are  two  equivalent  versions  of  the  system  block 
diagram.  Figure  A-2  relates  the  input  commanded  horizontal  position  to  the 
output  horizontal  position  with  an  error,  E  .  Figure  A-3  shows  the  error,  E  , 
as  the  difference  between  a  point  on  the  target  line,  Ot  x  ,  and  the  missile' 
position.  This  figure  also  shows  the  difference  between  E  and  E 

Deferential  Equations 

Figure  A-3  in  the  S  domain  is  equivalent  to  time  domain  differential 
equations : 


d2  y(t)  dv(t) 

(19^  ~dP  l_2^a>_dt  w2y(t)  =  w2yr(0 

(20)  e(t)  =  a(t)  x(t)  —  y(t) 


(21)  y((t)  =  a(t)x(t)  +  J3(t)x(t)  +  Kx(t)^[tt(t)  +  ^(t)] 

Using  £  {x(, )[«(«)+/»(.)]  } 

(2?)  =  [a(t)+fi(t)]  ^j^+x(t)£-[a(t)+p(t)] 

=  [a(t)  +  0(t)]  x(t)  +  x(t)  [ri(t)  -f  £(t)] 

and  eliminating  y(t)  from  (19),  (20),  and  (21)  gives 

d2  d2  d  T  l 

dt2e  "  dT2  (ax)  _  dT  lw2Kx(a  +  P)  ~2(w(ax  —  e)  J 

(33) 

—  oj 2  [/?x  ~  K(a  +  (3)x  +  e  ] 

Integration  of  (23)  for  an  initially  relaxed  system  yields 


(24)  e=ax  +  y'Jf- tu2Kx(a +^)  +  2^(o(ax  -  e)] 
+  <t)2w/'[  K(a  +  P)*  —  P*  ~ e  ]  dT  J  dT 


61 


or  with  slight  rework  (24)  becomes 

e  =  ax  —  +  ^a(a>2K  ~  2£a>)  +  a>2K/?  J  x 

+  t£>2^yr*^x  —  K(a  +  /3)x  +  eJdT  jdT 

Equation  (25)  as  written  in  PLM86  for  STAGS-T  is  shown  below: 

ERR_C0MP1  =  DAMP*0FF_H ; 

ERR  C0MP2  =  (HTARG*C0EF2  +  C0EF1*GAEY_F)*X ; 

INTFGRAND1  =  ( G AE  Y_F  *  X _K0E  F  * ( HT  ARG  +  GAEY_F) *VX+0FF_H) /25 ; 

I NTEGRALl  =  INTEGRALl  +  INTEGRAND1 ; 

ERR_C0MP3  =  0MEGA_SQ*I  NTEGRALl; 

INTEGRAND2  =  (ERR_C0MP1  +  ERR  COMP 2  +  ERR  C0MP3) / 25 ; 

INTEGRAL2  =  INTEGRAL  2  +  INTESRAND2; 

OFF_H  _  HTARG*X  -  INTEGRAL2. 

The  damping  and  natural  frequency  of  the  missile  in  both  pitch  and  yaw  is 
shown  on  page  3-72  of  the  Systems  Characteristic  Document  (T-24).  The 
approximations  used  in  STAGS-T  for  these  coefficients  are  shown  in  Figure 
A-4.  Figure  A-5  gives  the  downrange  velocity  and  position. 

Equation  (25)  and  the  PLM/86  incremental  expressions  are  unchanged. 

System  parameters,  however,  are  updated  on  each  pass  through  the  program. 

This  update  occurs  25  times  per  second.  The  value  of  K  as  used  in  the 
compensation  term  required  modification  because  of  the  variable  parameters. 
The  necessary  factor  was  found  by  computer  simulation  to  be  0.835,  i.e.,  the 
quasistatic  equations  use 


K  =  0.835 


(2£0>) 


DECLARE  ASCII. F'TR  POINTER; 

DECLARE  LAST.ELEMENT  WORD! 

DECLARE  (ASCII.BUFFER  BASED  ASCII  PTR)  (1)  BYTE) 

DECLARE  M  WORD; 

DO  M  =  0  TO  LAST. ELEMENT; 

CALL  SEND < ASCII.BUFFER' H ) ) ; 

end; 

end  string.out; 

/*  CONVISEND  CONVERTS  A  INTEGER  TO  ASCII  CHARACTERS  AND  SENDS 
THE  CHARACTERS  TO  THE  SMCB  * 

CONVISEND!  PROCEDURE (HEX)! 

DECLARE  ASCII. STRINGS)  BYTE? 

DECLARE  REMAINDER » HEX fN)  INTEGER; 

HEX  =  IABS(HEX); 

DO  N  =  3  TO  0  BY  *  i; 

REMAINDER  =  HEX  MOD  10  ♦  30H! 

ASCII. STRING(N)  =  LOW  <  UNSIGN  ^  REMAINDER ) ) » 

HEX  =  HEX/10; 

end; 

CALL  STRING.OUT  ( BASCII.STRING  ?  3 '  ? 

END  CONVISEND? 

/*  NAMES  FOR  DIRECTION  PARAMETERS  USED  IN  CALLING  MISS.COMMENT  1/ 

DECLARE  MISS.RT  LITERALLY  'O’.  MISS.LT  LITERALLY  'l'» 

MISS.UP  LITERALLY  '2‘.  MISS.SH  LITERALLY  '1'i 

DECLARE  FOREVER  LITERALLY  'WHILE  IS  NO.TRIG.PUL  LITERALLY 
' INPUT ( PORT. B)  AND  l'f  ACTION  BYTE? 

DECLARE  SOUND.TRIG.PULL  LITERALLY  ’O’!  ft  USED  TO  CALL  SOUND  «/ 

h.reprise:  procedure  external;  /«  the  reprise  procedure  */ 

END  h.reprise; 

setret:  procedure  external;  /«  sets  up  reticon  board  */ 

END  setret; 

/*  SOUND  PROVIDES  SIGNALS  FOR  THE  SOUND  SUBSYSTEM  »/ 

SOUND:  PROCEDURE (KIND)  EXTERNAL! 

DECLARE  KIND  BYTE? 

END  sound; 

DECLARE  FINISHED  BYTE  EXTERNAL!  /«  FLAG  SET  TO  MARK  THE  END  OF  FLIGHT  »/ 
DECLARE  PORT.B  LITERALLY  1 OCAH 1 :  /*  8255  PARALLEL  PORT  * 

DECLARE  TWO. SEC. INTERVAL  LITERALLY  ’20000’ »  THREE.SEC. INTERVAL  LITERALLY  ‘ 30000 
DECLARE  J  INTEGER! 

DECLARE  SECOND.TIME  BYTE!  It  SECOND  FIRE  COMMAND  FLAG  «/ 

It  COMPONENTS  OF  THE  CY512  PROGRAM  PASSED  TO  THE  SMCB  DURING  EVASION  * 


DECLARE  PROG. START  (*)  BYTE  DATA  CH'.ODH.'S  I'rODHr'R  ’>! 

DECLARE  PROG. MID  (D  BYTE  DATA  (ODH. 'F  l’.ODH.'B'.ODH.'E'.QDH)! 

DECLARE  PROG.END  (»)  BYTE  DATA  < ODHr 1 G 1 » ODH » * 0 ’ r ODH r 1 Q ! * ' ) * 

DECLARE  TID.BIT  (»)  BYTE  DATA  (ODH.'N  ‘>! 

DECLARE  (RATE i STEPS)  INTEGER."  /«  VARIABLE  PARAMETERS  OF  MOTOR  FOR  EVASION  * 

DECLARE  DIR  BYTE! 

PROLOG)  PROCEDURE  EXTERNAL!  /«  CAUSES  VOICE  SUBSYSTEM  TO  ISSUE  INITIAL  COMMANDS  */ 

END  PROLOG! 

fire.again:  procedure  external;  /*  CAUSES  voice  subsystem  to  repeat  FIRE  COMMAND  I 
END  fire.again; 

quit:  PROCEDURE  EXTERNAL!  /»  CAUSES  VOICE  SUBSYSTEM  TO  ISSUE  ABORT  COMMAND  */ 

END  QUIT! 

/*  EPILOG  CAUSES  COMPUTER  VOICE  TO  ISSUE  HIT/MISS  COMMENTS  «/ 

EPILOG!  PROCEDURE  EXTERNAL! 

END  EPILOG! 

YZCNTRi  PROCEDURE  EXTERNAL!  /«  OBTAINS  GUNNER  AIMING  ERROR  (GAE)  «/ 

END  YZCNTR! 

PF'I.SET!  PROCEDURE  EXTERNAL!  H  SETS  UP  8255  PARALLEL  F'ORTS.A  i  .C  OUTPUT.  F’ORT.B  INPUT  */ 
END  PF'I.SET ! 

FLIGHT!  PROCEDURE  EXTERNAL!  /*  MISSILE  FLIGHT  SIMULATION  PROCEDURE  */ 

END  FLIGHT! 

initiateivar:  procedure  external; 

END  INITIATES VAR F 

CY512.RESET!  PROCEDURE!  /«  RESETS  ALL  STEPPER  MOTORS  PRIOR  TO  EVASION  * 

CALL  SENDCR')! 

CALL  SENDCT')! 

CALL  SEND ( CURRENT.TRACK  AND  03H)! 

CALL  SEND  < 1 F" > ! 

CALL  SEND(CURRENT. TRACK  AND  03H)! 

END  CY512.RESET! 

DODGE!  PROCEDURE!  /»  CONTROLS  AND  EXECUTES  EVASION  »/ 

DECLARE  OLD.TCNT  INTEGER!  /*  STORES  PREVIOUS  TCNT  »/ 

DECLARE  TANK.STOPPED  LITERALLY  1 ( TCNT  -  OLD.TCNT)  =  0* !  /»  NO  MOVEMENT  BETHEEN  PASSES  i  ' 

DECLARE  GAEY.LIMIT  LITERALLY  ' l.OE-3' !  /*  AIMING  AT  TANK  WHEN  WITHIN  LIMITS  */ 

DECLARE  GAEZ.LIMIT  LITERALLY  'A.OE-V! 

DECLARE  ON.TARGET  LITERALLY  'ABS(GAEY.F)  <  GAEY.LIMIT  AND 

ABS(GAEZ.F)  GAEZ.LIMIT'i 

DECLARE  PERCENT. FACTOR  LITERALLY  1 (LOW.RANDOM  AND  2)  :  2‘!  /«  EVASION  PROBABILITY  IS  50 

DECLARE  TIMES.UP  LITERALLY  ' HIGH.RANDOM  =  O’ !  /*  RANDOM  DELAY  »/ 

DECLARE  GOOO.GUNNER  LITERALLY  ‘GUNNER.RATING  O'!  /«  NO  EVASION  FOR  RATING  OF  ZERO  « 

DECLARE  NOT. TRACK. 3  LITERALLY  ' ( (CURRENT. TRACK '  AND  03H'  3'!  /*  NO  EVASION  ON  TRACI  3 


94  2 


95  2 


97  3 

98  3 

101  3 

103  3 


10«  3 


105  3 

104  3 

107  3 

108  3 

109  3 

110  3 

111  3 


112  3 


113  3 

114  3 

115  3 

114  2 

117  2 

118  2 


11?  1 
120  1 

121  1 

122  1 


123  1 

124  2 

125  2 


DECLARE  EVADE. ENABLED  LITERALLY  ’TIHES.UP  AND  TANK.STOPPED  AND 
GOOD. GUNNER  AND  PERCENT.FACTOP  AND 
ON.TARGET  AND  NOT  TRACK  3* ! 

IF  EVADE.ENABLED 
THEN  DO! 


!t  GET  RATEf  STEPS  r  AND  DIRECTION  i/ 

RATE  =  INK  (LOW.RANDOM  AND  40H)  +  100); 

IF  LOW.RANDOM  THEN  DIR  =  2DH!  ELSE  DIR  =  2BH; 

IF  (5240  -  TCNT)  >  TCNT  ft  MAXIMUH  HOVE  IS  DISTANCE  TO  NEAREST  EDGEOF  MODEL  BOARD 
THEN  STEPS  =  TCNT /INT \ ( SHR ( LON.R ANDOH » 2 )  AND  07H)  «-  D! 

ELSE  STEPS  =  (5240  -  TCNTl/INT ( (SHR(LOW.RANDOftt 1 )  AND  07H:  ♦  1); 

ft  RESET  CY512= •  GET  CURRENT  TRACK  AND  SEND  IT  «/ 

CALL  CY512.RESET! 

/*  SEND  PROGRAM  WITH  VARIABLE  RATE-  STEPS »  AND  DIRECTION  »/ 

CALL  STRING. OUT (BPROG.START-LASKPROG.START) 1 ? 

CALL  CONVISEND(RATE)? 

CALL  STRING. OUT  ( 8PR0G. MID  -LAST  ( F'ROG.MID ) )  5 
CALL  STRING . OUT (0DIR»O); 

CALL  STRING.OUT ( 8TID.BIT i LAST ( TID.BIT ) ) ! 

CALL  CONViSEND' STEPS) ! 

CALL  STRING.OUT  < 8PR0G.END  •  LAST  ( PROG.END ) ) ! 

/*  DISABLE  ALL  BUT  GUNNER  RATING  OF  2  «/ 


GUNNER.RATING  =  GUNNER.RATINC-  -  1? 

/»  GET  RANDOM  NUMBERS  FOR  GUNNER.RATING  O'7  2  «/ 

/»  BY  DOING  A  BYTE  SNAP-  KEEP  DELAY  BETWEEN  MOVES  UNDER  1  SEC  » 


HIGH.RANDOM  =  < LOW (UNSIGN' J) >  AND  1FH>»  /*  MAY  DELAY  =  0.6  SEC  «/ 
LOW.RANDQH  =  HIGH'UNSIGNi J'-  AND  1111*11018: 

END: 

OLD.TCNT  =  TCNT!  ft  SAVE  TCNT  » 

HIGH.RANDOM  =  HIGH.RANDOM  -  15  ft  RANDOM  DELAY  COUNTER  «/ 

END  DODGE! 


/i 


PROGRAM  STARTS 


DECLARE  ST ART. UP  LABEL  PUBLIC! 

DECLARE  (LOW.RANDOM.  HIGH.RANDOM;  BYTE! 


/ 


CALL  TIME! 15000)! 


ft  1.5  SEC  TO  ALLOW  UPI-41'S  TO  RESET  » / 


START.UP! 

CALL  ppi.set; 


DO  I  =  0  TO  ioo; 

H.MIS.ASCII'I-  =  1  ■;  ft  CLEAR  BUFFERS  USED  IN  REPRISE  «/ 

end; 
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126 

1 

CONTINUE  =  o;  ./I  ZERO  FLAG  USED  BY  PROLOG  * 

127 

1 

CALL  PROLOG!  /»  ISSUE  INITIAL  COMMANDS  */ 

128 

1 

J  =  TWO.SEC. INTERVAL;  /»  J  USED  AS  INTERVAL  TIMER  E  RANDOM  NUMPER  BY  DODGE  *, 

129 

l 

SECOND.TIME  =  0!  /*  SET  IF  FIRE  COMMAND  NAS  REPEATED  *■' 

130 

1 

DO  NHILE  NO.TRIG.PULJ 

131 

■» 

CALL  TIME(l);  /i  0.1  MSEC  DELAY  */ 

132 

i. 

j  =  j  -  i; 

133 

•> 

4. 

IF  (J  =  0)  AND  (SECOND.TIME  =  0) 

REPEAT  FIRE  COHMAND  IF  TRAINEE  */ 

THEN  DO! 

1*  DID  NOT  FIRE  IN  TWO  SECONDS  */ 

135 

3 

call  fire.again; 

136 

3 

J  =  THREE. SEC. INTERVAL; 

137 

3 

SECOND.TIME  =  11 

138 

ji 

end; 

13’ 

n 

L 

ELSE  IF  (J  =  0)  AND  (SECOND.TIME  =  1 

l)  /*  ISSUE  ABORT  COMMAND  IF  TRAINEE  ■/ 

THEN  DO! 

ft  HASN'T  FIRED  IN  THREE  SECONDS  * 

HI 

3 

call  quit; 

/»  AFTER  REPEAT  FIRE  COMMAND  *- 

H2 

3 

halt; 

/*  STOP  PROCESSOR  */ 

H3 

3 

end: 

end; 

H5 

1 

CALL  SOUND' sgund.trig.puld; 

■'*  LAUNCH  EXPLOSION  */ 

H6 

1 

CALL  INITIATEWAR;  /*  FOR 

TOM  FLIGHT  */ 

117 

1 

LON.RANDOM  =  LOH'UNSIGN(J)!; 

/■  GET  RANDOM  NUMBER  */ 

118 

1 

HIGH. RANDOM  =  SHL i HIGH ( UNSIGN ( J ) ) f 1 > ! 

/*  RANDOM  DELAY  FROM  0  TO  9.4  SEC  *•' 

119 

1 

CALL  TIME' 15000); 

/*  SIMULATED  LAUNCH  DELAY  «/ 

15C 

1 

CALL  setret; 

/*  SET  UP  RETICON  CAMERA  »/ 

151 

1 

TON.FLYS!  DO  WHILE  NOT  FINISHED; 

/*  MAIN  LOOP  «/ 

152 

7 

CALL  vzcntr; 

/«  GET  GAE  «/ 

153 

n 

call  flight; 

•'*  SIMULATE  NEXT  40  MILLISECONDS  OF  FLIGHT 

154 

call  dodge; 

/*  EXECUTE  POSSIBLE  EVASION  *' 

155 

■ 

END  TON.FLYS; 

156 

1 

IF  HHIPE.BROKE  =  l1  OR:  'HILL. IMPACT  = 

1)  OR  (GUIDANCE. LOST  =  1(> 

/»  SPECIAL  MISS  COMMENTS  VIA  X.MIS. 

.ASCII  BUFFER  *•' 

THEN  do; 

158 

2 

IF  MIRE  .BROKE  =  1  THEN  CALL  M0VP'8NIF:E.C0nMENTfes:.MIS.ASCII?l2); 

160 

IF  HILL. IMF  ACT  =  1  THEN  CALL  MQVB(?HILL_CQMMENT>?(_MIE_ASCIIrlC"; 

162 

_ 

IF  C-UIDANCE.LOST  =  1  THEN  CALL  M0VB'@GUIDANCE.C0MMENTt?y_mIS.ASCII-15'; 

164 

L 

end; 

•'*  OTHERWISE  PRINT  MISS  DISTANCES 

X 

165 

1 

ELSE  DO: 

le>6 

"5 

IF  RIGHT  0, 

THEN  CALL  MISS.COMMENT; BRIGHT •?H.MI5.AStII«MI5S.RT); 

It- 8 

: 

IF  LEFT  0. 
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THEN  CALL  HISS.COHNENTiPLEFT »@H_HI5_ASCII»MISS_LT 1 
IF  'Jf'  0. 

THEN  CALL  f1ISS_C0HrtENT ( @UF‘ , PV_HIS _ASCII » HISS  UP); 

end; 

/«  PRINT  SHORT  DISTANCE  ONLY  IF  NO  SPECIAL  HISSES 
IF  SHORT  •:  0.  AND  APS  (SHORT  I  >  2.641d  THEN 

opop.short:  do; 

IF  (HIRE.PROKE  =  0  AND  HILL.IHPACT  =  0  AND  GUIDANCE 
CALL  HISS.COhHENT<eSHORT,?X.MIS.ASCIIfHISS.SH(; 
FELL. SHORT  =  1.: 

END  DROP. SHORT  I 
ELSE  FELL.SHORT  =  0! 

CALL  EPILOG?  /*  UERPAL  HISS  COMMENTS  »/ 

ACTION. WAIT!  /«  WAIT  FOR  REPRISE  */ 

do  forever; 

ACTION  =  NOT' INPUT1 PORT.P))  AND  01H! 

IF  ACTION  =  4  THEN  CALL  H. REPRISE! 

END  action.wait; 


END  HAIN.TON.HODULE: 


CROSS-REFERENCE  LISTING 


OEFN  ADDR  SIZE  NAME-  ATTRIBUTES »  AND  REFERENCES 


AES. 


4! 

0013H 

1 

ACTION  .  .  ,  , 

iei 

0319H 

ACTION. WAIT.  , 

L.  - 

OOOOH 

1 

ASCII.BUFFER  , 

20 

0006H 

9 

ASCII. FTP i  .  . 

30 

OOOFH 

9 

ASCII. STRING  , 

3 

A01FH 

1 

CONTINUE  .  .  . 

2 7 

Q367H 

96 

CONVSEND  .  .  . 

12 

OOOOH 

1 

CURRENT. TRACK. 

yt 

03C7H 

55 

CY512.RE3ET,  . 

17 

OOOOH 

9 

DEC ADR  .... 

60 

0015H 

1 

DIR ...... 

l7 

OOOOH 

1 

DIRECTION,  ,  . 

89 

03FEH 

372 

DODGE . 

179 

02CDH 

DROR.SHORT  ,  . 

6  7 

OOOOH 

EPILOG  .... 

99 

EUADE.ENABLED. 

7 

A01EH 

1 

FELL.SHORT  .  . 

50 

OOOOH 

1 

FINISHED  .  .  . 

63 

OOOOH 

FIRE.AGAIN  ,  . 

/  o 

OOOOH 

FLIGHT  .... 

91 

FOREVER.  .  .  . 

11 

OOOOH 

9 

GAEY.F  .  ,  ,  , 

87 

GAEf. LIMIT  .  . 

11 

OOOOH 

9 

GAE7.F  ,  .  ,  . 

88 

GAEZ. LIMIT  .  . 

52 

GOOD. GUNNER.  . 

16 

0026H 

15 

GUIDANCE. COMMENT 

13 

OOOOH 

1 

GUIDANCE.LOST . 

9 

A060H 

1 

GUNNER. RATING. 

29 

0009H 

6 

L. 

HEX . 

HIGH . 

120 

0017H 

1 

HIGH.RANDOM.  , 

19 

0010H 

10 

HILL.COMMENT  . 

13 

OOOOH 

1 

HILL.IMRACT ,  . 

i 

A022H 

77 

Lu 

H.MIS.ASCII.  , 

93 

OOOOH 

H.REPRISE.  .  . 

8 

OOOEH 

1 

I . 

IABS . 

75 

OOOOH 

INITIATEVAP.  . 

INPUT . 

INT . 

53 

0006H 

7 

i. 

J  * 

97 

OOOOH 

1 

KINO . 

LAST . 

20 

0009H 

LAST.ELEMENT  . 

9 

OOOOH 

9 

LEFT . 

LON . 

120 

0016H 

1 

LOW. RANDOM  .  . 

BUILTIN  95  173 

BYTE  132  133 
LABEL 


BYTE  BASED' ASCII_PTR,>  ARRAY' 1' 
POINTER  PARAMETER  AUTOMATIC 
BYTE  ARRAY' A)  35  36 

BYTE  AT  ABSOLUTE  126 

PROCEDURE  STACK=0019H  106 

BYTE  EXTERNAL'S 1  80  82 

PROCEDURE  STACK=0008H  109 

POINTER  PARAMETER  16 

BYTE  95  100  108 

BYTE  PARAMETER  18 

PROCEDURE  STACK=0019H  159 

LABEL 


26 

21 


no 

55 


PROCEDURE  E>:TERNAL'2P  STACK=OOOOH  180 

LITERALLY  95 

BYTE  AT  ABSOLUTE  177  l7? 

BYTE  EXTERNAL! I7’1  151 

PROCEDURE  EXTERNAL' 1?)  STACK=OOOOH  135 

PROCEDURE  EXTERNAL (29)  STACK=OOOOH  153 

LITERALLY  181 

REAL  EXTERNAL! 6'  95 

LITERALLY 

REAL  EXTERNAL!7'  95 

LITERALLY  95 

LITERALLY  95 

BYTE  ARRAY '15>  DATA  163 

BYTE  EXTERNAL (12;  156 

BYTE  AT  ABSOLUTE  95 

INTEGER  PARAMETER  AUTOMATIC 
BUILTIN  119  198 

BYTE  95  113  ll7  196 

BYTE  ARRAY  (TO)  DATA  161 

BYTE  EXTERNAL (10)  156 

BYTE  ARRAY (22)  AT  ABSOLUTE 
PROCEDURE  EXTERNAL' 19)  STACK=OOOOH  189 

BYTE  123  129 
BUILTIN  32 

PROCEDURE  EXTERNAL (25)  STACK=OOOOH  196 


BUILTIN 

130 

182 

BUILTIN 

97 

102 

103 

INTEGER 

113 

139 

128 

132 

133 

13c 

BYTE  PARAMETER 

96 

BUILTIN 

105 

107 

105 

123 

WORD  PARAMETER  AUTOMATIC 

77 

-  r 

REAL  EXTERNAL (2) 

168 

165 

BUILTIN 

35 

113 

197 

BYTE 

95  97 

5B 

102 

103 

119 

19' 

162  175 
112 

31  32  39 


160  175 

12*  167  169 


36 


197 


19B 


120  0016H 


24  OOOOH 
1  OOtCH 
1?  OOOOH 


MAIN.TOW.HODULE 
HISS.COMMENT  , 


HUM1  Lj  it 

PROCEDURE  STAG! =001 AH 
PROCEDURE  EXTERNALS  13)  STACK=OOOOH 


167  169  171  l^L 


40 

MISS.RT . 

LITERALLY 

167 

40 

MISS.SH . 

LITERALLY 

176 

40 

MIS5.UF . 

LITERALLY 

171 

MOVE 

BUILTIN 

159  161 

163 

31 

0004H 

2  N.  . . 

INTEGER 

33  35 

Q'i 

NOT. TRACT. 3.  .  .  . 

LITERALLY 

95 

41 

NO.TRIG.RUL,  .  .  . 

literally 

130 

05 

000CH 

2  OLD.TCNT  .  .  .  .  . 

INTEGER 

95  136 

89 

ON. TARGET,  .... 

LITERALLY 

95 

5 

OOOOH 

1  OUTDA'A . 

BYTE  PARAMETER 

6 

90 

PERCENT. FACTOR  .  . 

literally 

95 

51 

RORT.R  . 

literall  r 

130  182 

71 

OOOOH 

PRI.3ET . 

PROCEDURE  EXTERNAL  x  23 )  STACK=OOOOH 

122 

r  7 

J: 

0044H 

8  PROG. END  . 

BYTE  ARRAY'S' 

DATA 

111 

56 

003DH 

9  F'ROG.MID . 

BYTE  ARRAY'S- 

DATA 

10" 

CC 

JJ 

0035H 

6  RROG.START  i  .  .  . 

BYTE  ARRAY'S' 

DATA 

105 

61 

OOOOH 

PROLOG  . 

PROCEDURE  EXTERNAL (18)  STACE=OOOOH 

127 

65 

OOOOH 

QUIT  ....... 

PROCEDURE  EXTERNAL1 20'  STACK=OOOOH 

141 

59 

0008H 

^  RATE  ....... 

INTEGER 

0?  [M 

17 

OOOOH 

4  REALADR . 

POINTER  PARAMETER 

18 

31 

OOPZH 

2  REMAINDER . 

INTEGER 

34  35 

9 

OOOOH 

4  RIGHT . 

REAL  EXTERNAL' 

1' 

166  16" 

54 

0014H 

1  SECOND. TIME.  .  .  . 

BYTE  129 

133  127 

13° 

c 

J 

OOOOH 

SEND 

PROCEDURE  EXTERNAL' O'  5TACK-0000H 

26 

45 

OOOOH 

SETRET  . 

procedure  external ,15)  stack=ooooh 

150 

SHL 

BUILTIN 

148 

9 

OOOOH 

4  SHORT.  .  . 

REAL  EXTERNAL (4; 

173  176 

SHR ........ 

BUILTIN 

102  103 

47 

OOOOH 

SOUND . 

PROCEDURE  EXTERNAL (16)  STACK=OOOOH 

145 

42 

SOUND. TRIG. PULL.  . 

LITERALLY 

145 

119 

0089H 

START. UR  ..... 

LABEL  PUBLIC 

122 

59 

OOOAH 

2  STEF'S . 

INTEGER: 

102  103 

110 

20 

0336H 

49  STRING. OUT  .... 

PROCEDURE  STACK =000EH 

38 

105 

107 

86 

TANK. STOPPED  ,  .  . 

LITERALLY 

95 

10 

OOOOH 

2  TCNT  .  ,  . 

INTEGER  EXTERNAL'S) 

95  101 

102 

103 

12 

OOOOH 

1  THREE. SEC.FLAG  ,  . 

BYTE  EXTERNAL '9) 

52 

THREE. SEC. INTERVAL 

LITERALLY 

136 

56 

004EH 

3  TIB.BIT . 

BYTE  ARRAY (3) 

DATA 

109 

TIME . 

BUILTIN 

221  131 

149' 

91 

TIMES. UR  . 

LITERALLY 

95 

151 

0174H 

TOH.FLYS  ..... 

LABEL 

52 

TMO.SEC. INTERVAL  . 

LITERALLY 

128 

UNSIGN  . 

BUILTIN 

35  113 

114  147 

148 

9 

OOOOH 

4  UR . 

REAL  EXTERNAL 

■:  3  > 

170  ri 

n 

L 

A038H 

22  V.MIS.ASCII .  .  ,  . 

BYTE  ARRAY '.22 

)  AT  ABSOLUTE 

ri 

13 

OOOOH 

1  WIRE .BROKE  .  ,  .  . 

BYTE  EXTERNAL 

11  * 

156  158 

P5 

15 

001AH 

12  WIRE. COMMENT  ■  .  . 

BYTE  ARRAY (12 

i  DATA 

159' 

2 

A04EH 

22  X.MIb. ASCII.  -  ,  . 

BYTE  ARRAY '22 

)  AT  ABSOLUTE 

IS® 

161 

69 

OOOOH 

YZCNTR  . 

PROCEDURE  EXTERNAL (22)  STACK=OOOOH 

152 

module  information: 


ISIS-II  PL/h-86  VZ.l  COMF'ILATION  OF  MODULE  WLIGHTNODULE 
OBJECT  MODULE  PLACED  IN  : F2 : TOWFLF . QE J 

COMPILER  INVOKED  BY!  RLM84  JFItTOMFLP.Ol?  DEBUG  ROM  MEDIUM  /.REF  IXftEF  WQRKFILES £. 5F2. f  5F25 )  DATE’.  1/21/6 
1  TOWSrLIGHT FhODULE !  DO; 

/liiiiiiiiiiiiuiiiiimmmimiimimmmimmimiiiimiiiiiin 

OFF-BOARD  ABSOLUTE  ADDRESSES 

DECLARE  DISTANCE  WORD  AT  ' 0A00AH  • ;  '»  FOR  PIP  » 

DECLARE  TARGET. SNITCH  BYT E  AT  ( OAOODH  > :  /»  NOT  CURRENTLY  USED  «/ 

DECLARE  (YANG. BIRD'  2ANG.BIRD 1  INTEGER  AT  'OACIOHm  (E-'IRD_DT_RDY> 

COACH. ON*  BIRD.HITS*  BIPD.MISSES-  H.REP..RQ?  H.REP.GO.  U.REP.PQf 
V.RER.GOtGRND.BIRDf END. REPRISE !  BYTE  AT  (OAD11H- . 

DECLARE  'HIT. KILL »HIT. DISABLE;  BYTE  AT  <0A020H>; 

DECLARE  TURNED  BYTE  AT  (OAOEUH)!  /»  SIGNALS  TANK  HAS  TURNED  » 

iiiminmiimum  END  OFf-BOARD  ADDRESSES  imimiiiimmmimu 

7  1  DECLARE  (GUIDANCE. LOSTJHREE.SEC.FLAG 1  BYTE  PUBLIC; 

3  1  DECLARE  COAEH.COUNT  BYTE;  ,t  1  SEC  INTERVAL  TIMER  FOR  COACHING  « 

/*  VARAIBLES  FOR  WIRE  BREAK  *' 

9  1  DECLARE  ( ALR'HA  •  BE  T  A  •  G  AnN  A  •  DEL  TA » JERK  _  Y » JERK.Z 1  REAL; 

10  1  DECLARE  STORE. HTARG  '.If  P'EALr  STORE. GAEY '  1*  REAL-  STORE. GAEZM)  REAL! 

11  1  DECLARE  L  INTEGER-  WIRE.BR OKE  BYTE  PUBLIC: 

12  1  DECLARE  (SPEECH.HIT. SPEECH. MISS'  BYTE  EXTERNAL)  /*  HIT 'MISS  FLAGS  FOR  EPILOG  *7 

13  1  DECLARE  FINISHED  BYTE  PUBLIC; 

11  1  DECLARE  (GAFY.F-  GAEZ.F.  HTARG t  SHORT  -  OFF. Hr  Z-  X-  MISSILE. 2 '  REAL  PUBLIC: 

15  1  DECLARE  *  RIGHT  rLEEHJP'  F:EAl  EXTERNAL: 

16  1  DECLARE  (B.Y • E _Z • DAT A.PDY 1 , HILL.IHF ACT . CURRENT. TRACK '  BYTE  EXTERNAL: 

17  1  DECLARE  'ACNT,  DCNT >  INTEGER  EXTERNAL;  »  ANGULAR  i  DEPRESSION  MOTOR  COUNTS  * 

/i  NOT  CURRENTLY  USED  */ 

18  1  DECLARE  (GAEYt  GAEZ'  WORD  EXTERNAL :  /«  GAE  IN  HALF  PIXELS  FROM  tZCNTR  */ 

19  1  DECLARE  TEMP  INTEGER; 

20  1  DECLARE  COUNT  INTEGER  PUBLIC:  *  10  MILLISECOND  INCREMENTS  » 

21  1  DECLARE  (MAx. RANGE-  V;.  INTEGRAL;.  INTEGRANT'.  DEL.)  ■  R'EAl  : 

22  1  DECLARE  VZ-  FTIME 1  REAL; 

23  1  DECLARE  (ZETA.H,  ZETA.V-  ONEGA. H-  OMEGA.1.’  REAL.' 

DECLARE  ’OMEGA. SO .H-  OMEGA. SO.V-  OAMf  ,H.  DAME."  REAL:  >  MISSILE  DAME  INC  *  NATURAL  FREQUEn 


2  1 
3  1 

1  1 


5  1 

6  1 


1  1 


ISIS-II  PL/M-86  V2.1  COMPILATION  OF  MODULE  MAIN .TOH.MODULE 
OBJECT  MODULE  PLACED  IN  t F2 1 TOUhM . Ot-J 

COMFILER  INVOKED  BY!  PLH86  tF2 I TOWrtN , 020  DEBUG  ROM  MEDIUM  XREF  IXREF  HORKFILES' !F2! . !F2! )  DAT 

1  main.toh.module:  do; 

./iimiiHiiiinmmmimimmmiiiiimiuiiiiiiiiiiiiiHiiiiiin 

OFF-BOARD  ADSOLUTE  ADDRESSES 

mmHiiiimimimiiiimmniiiimmimiimiimnniiiiimit/ 

'*  BUFFERS  FOR  MISS  COMMENTS  DURING  REPRISE  */ 

2  1  DECLARE  ’ H_rtIS_ASCII •  V_rtIS_ASCII »X_HIS_ASCII >  (22)  BYTE  AT  ■OA022H.»» 

FELL.SH0P7  BYTE  AT  (0A01EH)! 

3  1  DECLARE  CONTINUE  BYTE  AT  (0A01FH-; 

4  1  DECLARE  GUNNER. RATING  BYTE  AT  < 0A080H) ? 

(uiiuimmnuii  END  OFF-BOARD  ABSOLUTE  ADDRESSES  inxiimiiimiii/ 

/*  SEND  TRANSMITS  A  BYTE  TO  UPI-A1  ON  THE  STEPPER  MOTOR  CONTROLLER 
BOARD  ‘ 3MCB  >  */ 

5  1  SEND!  PROCEDURE  (OUTDATA)  EXTERNAL! 

6  2  DECLARE  OUTDATA  BYTE; 

^  2  END  SEND! 

8  1  DECLARE  I  BYTE! 

?  1  DECLARE  (RIGHT. LEFT ,UF> SHORT)  REAL  EXTERNAL!  /*  MISS  DISTANCES  *•' 

10  1  DECLARE  TCNT  INTEGER  EXTERNAL!  '*  TARGET  POSITION  COUNTER  i 

11  1  DECLARE  (GAEY.F-  GAEZ.F)  REAL  EXTERNAL;  /«  AIMING  ERRORS  */ 

12  1  DECLARE  (CURRENT. TRACK.  THREE.SEC.FLAC'  BITE  EXTERNAL: 

13  1  DECLARE  (HILL. IMPACT-  HIRE .BROKE •  GUIDANCE.LOST *  BYTE  EXTERNAL! 

H  1  DECLARE  HILL. COMMENT ( 10!  BYTE  DATA 0 ’ -  HIT  HILL1)! 

15  1  DECLARE  HIRE. COMMENT (12)  BYTE  DATA( HIRE  BROKE'! 

16  1  DECLARE  GUIDANCE. COMMENT (15)  BYTE  DATA<  GUIDANCE.LOST'); 

17  1  MISS.COMMENT!  PROCEDURE1 PEALtADR.  DECtADR-  DIRECTION'  EXTERNAL! 

If  2  DECLARE  (REALtADR.  DEC! ADR)  POINTER.  DIRECTION  BYTE! 

1?  2  END  MISS.COMMENT! 

/*  STRING.OUT  SENDS  A  STRING  OF  INSTRUCTIONS  TO  THE  SMCB  USING 
THE  SEND  PROCEDURE  GIVEN  A  POINTER  TO  THE  STRING  AND  THE 
SUBSCRIPT  OF  THE  LAST  ELEMENT  */ 

20  1  STRING.OUT!  PROCEDURE t ASCII.F'TR i LAST. ELEMENT ' ! 


75 


DECLARE  i KOEF >  COEF1.  COEF2;  REAL!  /*  FLIGHT  DYNAMIC  COEFFICIENT  */ 

DECLARE  ( SUMO •  INTEGRAL  1*  INTEGRAND1.  ERR.COMF2.  ERR. COMP 3-  ERR.COMfl,  XTARGi  REAL! 

DECLARE  <VTARG»  HANG*  VANG .  DELiVZ1  REAL!  /*  HANG » VANG  GIVE  MISSILE  POSITION  RELATIVE  TO  AIM 
DIANS  */ 

DECLARE  EXPONENTIAL  REAL; 

DECLARE  RESULTS ( 800 )  STRUCTURE < S_X  HORDrS.Y  REAL.S.Z  REAL  - 
S.GAEt  REAL-  S.GAEZ  REAL)  AT  '2000H',  I  INTEGER! 

DECLARE  GROUND. EXP  LITERALLY  '2't  /»  PARAMETERS  FOR  SOUND  « 

HIT.TARGET  LITERALLY  '1‘r 

FACTOR  LITERALLY  '0,835';  /*  CORRECTION  FACTOR  FOR  LEAD  ANGLE  CONSTANT  * 

DECLARE  INIT.COACH.COUNT  LITERALLY  '25' i  /«  COACH  EVERY  SEC  IF  ENABLED  */ 

.  *  8087. LIP  PROCEDURES  r 

INIT87 1  PROCEDURE  EXTERNAL! 

END  INIT8’; 

•qerEXF :  PROCEDURE  'X;  REAL  EXTERNAL: 

DECLARE  X  REAL! 

END  eqerEXR; 

/*  COACH  USES  GAE  TO  ISSUE  COACHING  COMMANDS  IF  AIMING  ERROR 
EXCESSIVE  *■ 

COACH!  PROCEDURE  'GAEH-  GAEV)  EXTERNAL! 

DECLARE  1  CASH. GAEL1 '  REAL  * 

END  coach; 

SOUND!  PROCEDURE  (HHAT.l'IND)  EXTERNAL; 

DECLARE  WHAT.KINO  BYTE R 
END  SOUND! 

,*  TARGET  DATA  OBTAINS  HTARC-.  TARGET.) r  TARGET.Z-  TCNT  AND 
EFFECTIVE  TANK  DIMENSIONS 

target.data:  procedure  external; 
end  target.data; 

/*  ACTIVE  TRACK  OBTAINS  THE  NUMBER  OF  THE  TARGET  TRAD' 

active.track:  procedure  external; 
end  active.track; 

/*  update  counts  is  used  to  obtain  the  initial  target  count  * 

UPDATE. COUNTS!  PROCEDURE  l FIRST. PASS)  EXTERNAL! 

DECLARE  FIRST. PASS  BYTE! 

END  UPDATE. COUNTS: 

/*  PROCEDURES  THAT  DETERMINE  HIT  OR  MISS.  ONE  FOR  EACH  TRACK  « 


50 

1 

TRACK. 1!  PROCEDURE  EXTERNALS 

51 

n 

L. 

END  TRACK.i; 

•/ 

N.\-  * 

52 

1 

TRACK.2!  PROCEDURE  EXTERNAL! 

53 

2 

END  TRACK.2 ; 

59 

1 

TRACK. 3!  PROCEDURE  EXTERNAL! 

l-t  w 

55 

2 

END  TRACK. 3! 

/x  GROUNDED  CHECKS  FOR  MISSILE  GROUND  IMPACT  1/ 

56 

1 

GROUNDED!  PROCEDURE  EXTERNAL; 

57 

n 

L 

END  grounded; 

ti. )  ■§ 

58 

\ 

H.REFRISE!  PROCEDURE  PUBLIC! 

* .  k  ' 

"  ■*, 

59 

n 

L. 

H.REP.RO  =  I!  /*  SIGNALS  PIP 

60 

1 

L 

DO  WHILE  NOT  H.REP.GO;  /«  NAIT  FOR  PIP 

61 

3 

end; 

62 

L 

H.REP.GO  =  o; 

>V-  V 

Ml 

63 

L 

DO  I  =  1  TO  COUNT! 

w 

69 

3 

CALL  TIME (380)! 

65 

3 

TEMP  =  FIXdOO.O  ♦  RESULTS ( I > . S_Z/0 . 1 ) 

.%  - , 

66 

3 

IF  TEMF  :  0 

■*  “ «/ 

> " « * , 
m  „  * 

THEN  B.Z  =  0; 

v' 

68 

3 

ELSE  B.Z  =  LOH ( UNSIGN i TEMP )); 

K 

jf .  • 
r v 

fo: 

»■ 


*' .  •’  • 
L-  -• 

! . 


/»  PASS  VERTICAL  DISTANCE  OF  MISSILE  FROM  TARGET  LINE  TO  PIP  BOARD 
IN  DECIMETER  INCREMENTS.  »/ 

69  3  TEMF  =  FIXdOO.O  -  RESULTS ( I >.S_Y/0.1>5 

70  3  IF  TEMP  •;  0 

THEN  F.Y  =  0; 

72  3  ELSE  B.Y  =  LOW (UNSIGN (TEMP) )! 

/*  PASS  HORIZONTAL  DISTANCE  OF  MISSILE  FROM  TARGET  LINE  TO  PIP  BOARD 
IN  DECIMETER  INCREMENTS.  */ 


73 

3 

DISTANCE  =  RESULTS ( I ) . S.X  5 

79 

3 

DATA.RDY1  =  i; 

75 

"3 

BIRD.DT.RDY  =  1! 

/6 

3 

end; 

77 

L 

CALL  TINE' 380); 

78 

n 

L 

END.REPRISE  =  i; 

79 

2 

END  h.reprise; 

80  1 


/xrxixixixiimiiiixxtxxiixixxxxixxxxxxxixixxxxixxxxxxxxxixx 

PROGRAM  VARIABLE  INITIALIZATION 

XXXXXXXXXXXXIXXXIXXXXXXXXIIXIXXXXXXXXXXIXXXXXXXXXXXXXXXXXXX/ 

initiate$var;  procedure  public; 


j 


81 

82 

83 

89 

8? 

86 


CALL  INIT87; 

COACH.COUNT  =  INIT.COACH. COUNT! 

TARGET. SNITCH  =  01  /«  TEMPORARILY  DISABLE  TARGET  SNITCHING  «/ 

CALL  ACTIVE. TRACK;  /*  GET  CURRENT  TRACK  «/ 

CALL  UPDATE. COUNTS! 1 ) ;  /«  GET  INITIAL  COUNTS  «/ 

IF  TURNED  =  1 


v.  -• 
V 


77 


/i  90  DEGREE  TURN  » 

/x  NO  TURN  1/ 

/*  ZERO  DEPRESSION  COUNT  */ 


THEN  ACNT  =  29! 

88  2  ELSE  ACNT  =  01 

89  2  DCNT  =  550 ! 

90  2  VZ  =  10.160? 

91  2  DO  L  =  0  TO  3;  /*  ZERO  HIRE  BREAK  STACKS  */ 

92  3  STQRE.HT ARGIL ).  STORE.GAEY(L),  STORE.GAEZ(L)  =0.! 

93  3  end; 

99  2  HIRE.BROKE  =  0! 

95  2  MISSILE.!.  X-  Z,  VTARG,  VANG ;  HANG,  OFF.H  =  0.; 

9c  2  GAEY.F ,  GAEZ.F ,  INTEGRAL!,  SUMO,  INTEGRALl  =  0.1 

97  2  RIGHT, LEFT, UP, SHORT  =  0.; 

98  2  GUIDANCE.LOSTiTHREE.SEC.FLAG  =  0? 

59  2  XTARG  =  3000.0! 

100  2  MAX.RANGE  =  3500.0;  /»  RANGE  FOR  FINAL  GROUND  IMPACT  */ 

101  2  SPEECH. HIT,  SPEECH.MISS  =  0! 

102  2  HILL.IMPAC  T , FINISHED , BIRD.HITS , BIRD.MISSES , GRND.BIRD  =  0! 

103  2  H.REP.RQ,H_REP_GG»V. REF. RG,V_REP_GO, END. REPRISE  =  Oi 

109  2  HIT. KILL,  HIT.DISABLE  =  0! 

105  2  i  =  o; 

106  2  COUNT  =  0; 

10'  2  END  INITIATE9VAR; 

/xxixxxxxxxxxxxxxiixxxxxxiixixxxxxxxixixixxixxxixxxiiixixxxxixixixxxxxix 

MFS  MAIN  PROCEDURE 

XIXXXXXXIXXXXXXXXXXXXXIXXXIZXXXXIIXXIXXXXXXIXXXXXXIXIXIXIIXXXXXXIXXXXXXX ' 

108  1  FLIGHT!  PROCEDURE  PUBLIC! 

109  2  COUNT  =  COUNT  *  1! 

no  2  i=m; 

111  2  IF  COUNT  :=  75  THEN  THREE.SEC.FLAG  =  1! 

/mxxxxxxxxxxxxxfxxKxxxxxxximxxxxxxxxxxxxxxxxxxxxxxxiixxzxxxzxmxxxix 
GET  TARGET  POSITION  &  GUNNER  AIMING  ERROR 
xxixxxxxxxxxxxixxxxxxxxxxxxxxxxxxi  xxxxxxxxxxxxxxxmxxxxxxxxxxxxxxxxxxxxx/ 

/»  TARGET  POSITION  IS  MEASURED  FROM  THE  INITIAL  TARGET  LOCATION  tf 

113  2  GAEY.F  =  5.906E-5  »  FLOAT ( SIGNED (GAEY)>;  /«  .6  CM  DETECTOR  HEIGHT  DIVIDED  BY  */ 

119  2  GAEZ.F  =  5.906E-5  *  FLOAT ( SIGNED ( GAEZ ' 1 !  /x  (200  HALF  PIXELS  x  76.2  CM  FL)  x/ 

115  2  CALL  ACTIVE. TRACK!  /i  GET  CURRENT  TRACK  t> 

116  2  CALL  TARGET.DATA;  /x  GET  TARGET  PARAMETERS  S  CORRECT  RAH  GUNNER  AIMING  ERROR  */ 

/XXXXIXXlXXXIXXIIlIIXXXllXXIimziIXXXlXXXIKKIXXtllXIXIXIXXlIXXIXIltlXXXl 

TRANSFER  BIRD  POSITIONS  TO  'FIP' 


117  2  ZANG.E'IRD  =  FIX(VANG/0.0001>;  /x  ANGULAR  POSITION  OF  MISSILE  RELATIVE  x/ 

118  2  YANG.BIRD  =  FIX (HANG '0.0001 /x  TO  AIMING  AXIS  IN  HALF  PIXELS  »/ 

119  2  BIRD.DT.RDT  =  i; 

/XXIXKXIXXXXXXXXXXXXXIXXXXXXXXXXXIXXXXXXXXXXXXXXXXXXXXXXXXIXXXXXXXXXX 

CHECK  IF  HIRE  BROKE 

IXIXIXXIIIXXXXXI1XXXIXI1IXXXIIXXIIIXXXXIXXIIXXXIXXXIX1IXIIXXXXXXXXXX 


78 


\  \  v -.1%  . 


120  2  ALPHA  =  STQRE.GAEY(3)  -  GAEY.F?  /x  CHANGE  IN  AIMING  ANGLE  «■' 

121  2  GAMMA  =  STORE. HTAF:G(3'  -  HTARG !  /i  CHANGE  IN  TARGET  ANGLE  «/ 

122  2  DELTA  =  ALPHA  -  GAMMA? 

123  2  BETA  =  ST0RE.GAE2(3)  -  GAEZ.PJ 

124  2  JERK.Y  =  (DELTA  i  DELTA)  *  25.0  /  4.0? 

125  2  JERK.Z  =  (BETA  «  BETA)  »  25.0  !  4.0? 

/*  A  JERK  IS  A  RATE  OF  1  MRAD.  IN  1/25  SEC.  FOR  AN  ANGLE  OF  2.5  MRAD.  «/ 

IF  (COUNT  5)  AND  ( ( JERK.Y  >  62.5E-6)  OR  (JERK.Z  *  62.5E-6" 

THEN  DO? 

FINISHED ; HIRE. BROKE . GRND.BIRD  =  1? 

CALL  SOUND i GROUND.EXP ) ? 

END? 

ELSE  DO? 

DO  L  =  3  TO  1  BY  -1? 

STORE.GAEY(L)  =  STQRE.GAEY'L  -  1>? 

STORE. GAEZiL'  =  STORE. GAEZ(L  -  !>? 

STORE.HTARG'.L)  =  STORE .HTAPG'L  -  1>? 

END: 

STORE.GAEr (0)  =  GAEY.Fi 
STORE. GAEZ 'O’1  =  GAEZ.F? 

STORE  .HTARG '.0)  =  HTARG? 

END? 

imunniuiiiinmiuui  COACHING  mmiKHimmmmum/ 

IF  COACH.ON  =  1 
THEN  00? 

COACH. COUNT  =  COACH.COUNT  -  1? 

IF  COACH.COUNT  =  0 
THEN  DO? 

CALL  COACH' GAEY.F. GAEZ.F'? 

COACH.COUNT  "  INIT.COACH.COUNT? 

END? 

END? 

''ixxxxixxixxxxxiixxxxxmxxiiiiixixxixxxxixxxxxixxxxixiiixixixxxiimim 

CHECK  FOR  POSIBLE  HIT 

IXXXIlfXXXIIXXIXXXIIXXXXXXlIXXXXXXIXIXXIXXXIXIXXXXXXXXXIXXXItXIIXXXXXIXXX' 

150  2  SHORT  =  X  -  XTARG? 

151  2  IF  ABS'SHORT'  0  4.9  THEN  /x  ♦  OR  *  8  FT  FROM  RANGE  OF  TARGET  t> 

152  2  AT.TARGET?  DO? 

153  3  00  CASE  CURRENT. TRACK? 

154  4  ?  /»  NULL  STATEMENT  «/ 

155  4  CALL  TRACK. 1? 

156  4  CALL  TRAD. 2? 

157  4  CALL  TRACK. 3! 

158  4  END? 

15«  3  FINISHED  =  1? 

160  3  IF  Sf'EECH.HIT  1 

THEN  DO? 

162  4  GRND.BIRD  =  1? 

163  4  CALL  SOUND 'GROUND.EXP)? 

164  4  end; 

165  3  END  AT.TARGET; 


141  2 

143  3 

144  3 

1*6  4 

147  4 

148  4 

14'  3 


126  2 

128  3 

129  3 

130  3 

131  2 

132  3 

133  4 

134  4 

135  4 

136  4 

13’  3 

138  3 

139  3 

140  3 


/ixxxmimmxiiiiiixixmmmxmxixxxxxzzixzxmiiiiiimmxxmi 

CALCULATE  NISSILE  DAMPING r  NATURAL  FREQUENCY?  AND  VELOCITY. 

uixiixiiixixixiixxxmiixxmiimxxxxixixmiixiixxxxiimimimxixi/ 

/iiiiiimiiiimiiuimiiiiiiinmiuMmiimiuiiniii! 

SEE  TOW  REPORT  APPENDIX  FOR  THE  DEFINITION  OF  THE 
FOLLOWING  VARIABLES  AND  EQUATIONS. 

lintiiiinnimiunniiimHimiimnniiimmiimi/ 

166  :  EXPONENTIAL  =  »^erEXP(-X/lOOO.0>? 

167  2  2ETA.H  =  (0,24  *  EXPONENTIAL  +  0.40)/4.0?  /*  QUICK  FIX  11'09/SZ  » 

168  2  ZETA.V  ^  (0.33  *  EXPONENTIAL  *  0.40'/4.0! 

16?  2  EXPONENTIAL  =  6.4  x  »c{erEXPY-X/15C/>,D.> T 

1’0  2  OHEGA.H  =  EXPONENTIAL  +  2.601 

172  2  OHEGA.V  =  EXPONENTIAL  ♦  2.001 

172  2  0HEGA.G0.H  =  ONEGA.H  *  QrlEGA.H! 

173  2  QHEGA.SQ.V  =  OHEGA.V  »  OHEGA.V! 

174  2  DAHP.H  =  2.0  «  ZETA.H  *  OHEGA.H: 

175  2  DAMP. V  =  2.0  *  ZETA.V  i  OHEGA.V! 

176  2  K0EF  =  FACTOR  *  <2.0  *  DAHP.H  /  OHEGA.SQ.H'l 

177  2  C0EF1  =  0HEGA.SQ.H  *  K0EF! 

178  1  COEF2  =  C0EF1  -  DAHP.H! 

179  2  FTIHE  =  0.04  *  FLGAT(COUNT) !  '*  RETICON  FREQUENCY  NOW  25  HERTZ  */ 

180  2  VX  =  165.10  *  <1.0  -  •serEXP'-Z.OiFTIHE'  ♦  tRerEXR(-FTIHE/5.5i)l 

/liiuiiiiimizniiiiziuixmiiiiiiuiiimuiiiiiiimumiiNiiiniiiiiii 

FIND  MISSIiE  POSITION 

imifimimxmiiiimixiimimimiiiiimmimiiiiixiiiimmmm/ 

181  2  OEL.X  =  VX-'25.0; 

182  2  X  =  X  +  DEL.X1 

183  2  DISTANCE  =  UNSIGNIFIXW  >1 


184  2  DEL*VZ  =  (OHEGA.SQ.VxGAEZ.FxX  -  DANP.VxVZ  -  0HEGA.SQ.V*Z)/25.01 

185  2  VZ  =  VZ  *  DELWZ/2.0; 

186  2  2  -  2  *  VZ/25.01 

187  2  HISSILE.Z  *  2  ♦  1.25; 

188  2  VZ  =  VZ  ♦  DELtVZ/2.01 

18?  2  ERR.C0HR1  =  OAHP.HtOFF.Hl 

190  2  ERR.C0HP2  =  (HTARGxC0EF2  ♦  C0EF1*GAEY.F)*X1 

191  2  INTEGRAND1  =  (GAEY.FxX-KOEFxiHTARG  *  GAEY.FWX*0FF.H'/25,01 

192  2  INTEGRAL1  «  INTEGRAL  1  ♦  INTEGRAND! 1 

193  2  ERR.C0HP3  =  OH£GA.SO.H*INTFGRALll 

194  2  INTEGRAND!  =  (ERR.COHP)  ♦  ERR.COHP2  ♦  ERR.C0HF3)/25,01 

195  2  INTEGRAL!  *  INTEGRAL!  +  INTEGRAND! 1 

196  2  OFF.H  =  HTARG*X  -  INTEGRAL! 1 


fixiiiiiimxxxitmiixxtxixxmxmmmiimixmxxxxtxmiimxixixmx 


DEFINING  ANGLES 

iHiuiiKuniuiiininiiiniNiimiiimiiiiiiiimmiiitmimumii/ 

IF  COUNT  0  THEN  /«  TO  AVOID  A  'DIVIDE  PY  ZERO'  WHEN  CALCULATING  'HNISS.'  »/ 
angles:  DO? 

HANG  =  -QFF.H/X  -  GAEY.F? 

VANG  =  Z/X  -  VTARG  -  GAEZ.F! 

END  ANGLES? 

/xxmixxiixiixiiimixxxxxiixixxxxxxxxxxxmiixxxxixxiixxmxmxxxmxxxxx 

CRASHED*' 

xxxxxxxixxxxxxxxxxxxxxxxxmxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxmxxxxxxxxxxxxx/ 

CALL  GROUNDED? 

/KllXXIXXXXXXXXXXXXXIXXXXXIXXXXXXXXXXXXXXtXXXXIXXIXXXXXXXXXIXXXXXXlXXXlXXXX 

OUT  OF  FOV? 

ixxxxxmxxxixixxxxxxixxxxxiixxxxmxxxxxxxxxixxxxxxxxxxxxxxmxmxxxxxxx/ 


PC*'*? 

203 

IF  'THREE.SEC.FlAG  =  1)  AND  ( (ADS  (GAEY.F)  ;  5.0E-3)  OR  <  ADS  (GAEZ.F)  >  5.0E-3)) 

t%\vV‘vv,; 

THEN  DO? 

:os 

206 

20? 

3 

3 

3 

FINI$HED>GRND.E'IROjGUIDANCE_LOST  =  1?  ft  EXACT  NUMBER  IS  5.906E-3  *f 

CALL  SOUND (GROUND.EXP)? 

END? 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxtxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxvxxxxxxxxx 
MISSILE  DATA  SAMPLE  FOR  POSSIBLE  REPRISE 
ixmxxxxmxxxxxxxxxxxxxxxxmmxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx.' 


208 

209 

210 

L. 

1 

L 

2 

RESULTS (I >.S_X  =  DISTANCE? 
RESULTS(I) .S_Y  =  -  OFF.H? 

IF  OFF.H  >  12.7 

THEN  RESULTS <I),S_Y  =  -12,7? 

v  *  .*,'*•  ^  '  .*  ’  * 

*  •  .  .  *  v  -  ,  . 

212 

c 

IF  OFF.H  <  0,  AND  APS (OFF.H) 

*  >V-V. 

ZH 

2 

THEN  RESULTS(I),S.Y  =  12.7? 
RESULTS(I) ,S_Z  =  Z: 

i..  *•  -v-.- . 

215 

n 

L 

IF  Z  >  15,0 

THEN  RESULTS ( I ) . S_Z  =  15,0! 

»  ^  v  *  ,  -»  .  ■■  *  , 

'»  v  *  *»  '  %  - 

217 

im 

IF  Z  <  0,  AND  ABS'Z'  ■  5,00 

>vVv**VvV*\\'-- 

2v .  --  ‘.  a’  ‘.'V--  • 

219 

n 

L 

THEN  RESULTS ,'I),S.Z  =  -5.00F 

RESULTS' I).S_GAE?=GAEY_F; 

7'7\-  -v 

220 

2 

results(I),s.gaez=gaez.f; 

221 

2 

end  flight; 

222 

1 

END  TOHtFLIGHT MODULE! 

81 


•  v* 


CROSS-REFERENCE  LISTING 


DEFN  ADDR  SIZE  NAME.  ATTRIBUTES.  AND  REFERENCES 


AK 

« 

4 

BUILTIN  151 

203 

212 

2  F 

17 

0000H 

L 

ACNT . 

* 

4 

INTEGER  EXTERNAL' 10) 

87 

88 

15 

OOOOH 

ACTIUE.TRACK  . 

i 

» 

PROCEDURE  EXTERNAL (19)  STACK=OOOOH 

9 

OOOOH 

1 

ALPHA i  «  *  •  » 

l 

4 

REAL  120  122 

198 

08DFH 

ANGLES  .... 

t 

4 

LABEL 

152 

059EH 

AT.TARGET.  .  . 

* 

4 

LABEL 

9 

0009H 

9 

BETA . 

» 

4 

REAL  123  125 

9 

A019H 

1 

BIRO.DT.RDY.  . 

i 

• 

BYTE  AT  ABSOLUTE 

75 

119 

1 

A016H 

1 

BIRD.HITS.  .  . 

< 

4 

BYTE  AT  ABSOLUTE 

102 

9 

A017H 

1 

BIRD .HISSES.  . 

« 

4 

BYTE  AT  ABSOLUTE 

102 

16 

OOOOH 

1 

ELY.  .  .  ■  .  . 

4 

4 

BYTE  EXTERNAL \ 5? 

71 

72 

16 

OOOOH 

1 

P_Z»  »  •  »  i  i 

• 

4 

BYTE  EXTERNAL (6) 

67 

68 

37 

OOOOH 

COACH . 

« 

4 

PROCEDURE  EXTERNAL (16)  STACK=OOOOH 

8 

OOEAH 

1 

COACH.COUNT .  . 

l 

4 

BYTE  82  193 

199 

197 

1 

A015H 

1 

COACH. ON  .  .  . 

* 

4 

BYTE  AT  ABSOLUTE 

191 

25 

OOAEH 

4 

C0EF1 . 

l 

4 

REAL  177  178 

190 

25 

00B2H 

1 

C0EF2 . 

* 

4 

REAL  178  190 

20 

006CH 

o 

L 

COUNT . 

• 

4 

INTEGER  PUBLIC 

63 

106 

109 

111 

16 

OOOOH 

1 

CURRENT.TRACK. 

4 

4 

BYTE  EXTERNAL) 9) 

153 

29 

OOA2H 

9 

DANF.H  .... 

» 

4 

REAL  171  176 

178 

189 

29 

00A6H 

1 

DANF'.O  .... 

4 

4 

REAL  175  189 

16 

OOOOH 

1 

DATA.RDYl .  .  . 

• 

» 

BYTE  EXTERNAL (7) 

79 

17 

OOOOH 

n 

OCNT . 

4 

4 

INTEGER  EXTERNAL (11 > 

89 

9 

OOOCH 

i 

DELTA . 

4 

I 

REAL  122  121 

27 

OODEH 

i 

DELVZ . 

4 

4 

REAL  189  185 

188 

21 

Q07EH 

9 

DEL.X*  •  »  •  • 

4 

4 

REAL  181  182 

? 

AOOAH 

0 

u 

DISTANCE  .  .  , 

4 

4 

WORD  AT  ABSOLUTE 

73 

183 

208 

9 

A01DH 

1 

END.REF'F'ISE.  . 

1 

4 

BYTE  AT  ABSOLUTE 

78 

103 

26 

OOCAN 

1 

ERR.CONF'l .  .  . 

4 

REAL  189  199 

26 

00C2H 

1 

ERR.C0HP2.  .  . 

4 

1 

REAL  190  159 

26 

00C6H 

1 

ERR.C0KF3.  .  . 

4 

4 

REAL  193  191 

28 

00E2H 

9 

EXPONENTIAL.  . 

4 

4 

REAL  166  167 

168 

169 

170 

171 

30 

FACTOR  .  .  .  . 

4 

I 

LITERALLY  176 

13 

OOECH 

1 

FINISHED  .  .  . 

4 

4 

BYTE  PUBLIC 

102 

128 

159 

205 

17 

OOOOH 

1 

FIRST.f'ASS  .  . 

4 

4 

BYTE  PARAMETER 

98 

FIX . 

4 

1 

BUILTIN  65 

69 

117 

118 

183 

108 

0375H 

1955 

FLIGHT  .... 

4 

4 

PROCEDURE  PUBLIC  STACK=0008H 

FLOAT . 

4 

4 

BUILTIN  113 

111 

179 

22 

0086H 

1 

FTINE . 

4 

4 

REAL  179  180 

37 

OOOOH 

9 

GAEH . 

4 

4 

REAL  PARAMETER 

38 

37 

OOOOH 

9 

GAEV  «  ♦  *  *  * 

4 

4 

REAL  PARAMETER 

38 

18 

OOOOH 

n 

L 

GAEY  •  »  i  »  » 

4 

1 

WORD  EXTERNAL' 12) 

113 

11 

001AH 

9 

&AEY _F  «  *  i  • 

« 

1 

REAL  PUBLIC 

96 

113 

120 

137 

18 

OOOOH 

n 

i. 

GAEZ  »  i  *  *  « 

• 

4 

WORD  EXTERNAL) 13) 

119 

11 

001EH 

1 

&AE2.F  ,  ,  ,  . 

4 

4 

REAL  PUBLIC 

96 

119 

123 

136 

9 

0008H 

9 

GAMHA . 

# 

4 

REAL  121  122 

1 

A01CH 

1 

GRND.BIRD.  .  . 

4 

4 

BYTE  AT  ABSOLUTE 

102 

128 

162 

56 

OOOOH 

GROUNDED  .  .  . 

4 

4 

PROCEDURE  EXTERNAL '29'  STACk=0000H 

30 

GROUND. EXP  .  . 

4 

4 

LITERALLY  129 

163 

206 

203  220 


■j'A 


7 

00E8H 

1 

GUIDANCE.LOST .  .  . 

BYTE  PUBLIC 

98 

205 

27 

00D6H 

4 

HANG . 

REAL  95  118 

199 

16 

0000H 

1 

HILL.IMPACT.  .  .  , 

BYTE  EXTERNAL (8' 

102 

5 

A021H 

1 

HIT.DISABLE.  .  .  . 

BYTE  AT  ABSOLUTE 

104 

5 

A020H 

1 

HIT.KILL  . 

BYTE  AT  ABSOLUTE 

104 

30 

HIT.TARGET  .... 

LITERALLY 

14 

0052H 

4 

HTARG.  ...... 

REAL  PUBLIC 

121 

139 

190 

191 

196 

58 

OOCOH 

290 

H.REPRISE . 

PROCEDURE  PUBLIC  STACK=0004H 

A019H 

1 

H_REP_GQ  ..... 

BYTE  AT  ABSOLUTE 

60 

62 

103 

4 

A018H 

1 

H.R’ER.RO  .  •  .  .  . 

BYTE  AT  ABSOLUTE 

59 

103 

29 

00E6H 

? 

I ........  . 

INTEGER  63 

65 

69 

73 

105 

110 

208 

209 

211  213  2H 

216  218  219  220 

32 

OOOC'H 

INITS7  ...... 

PROCEDURE  EXTERNAL (14)  STACK=0000H 

81 

80 

01E2H 

403 

INITIATED: .  .  .  . 

PROCEDURE  PUBLIC  STACK=0008H 

31 

INIT.COACH.COUNT  . 

LITERALLY  82 

147 

26 

006AH 

4 

INTEGRAL  1 .  .... 

REAL  ’6  192 

193 

21 

0076H 

4 

INTEGRAL2 . 

REAL  96  195 

196 

26 

OOBEH 

4 

INTEGRAND  1  .... 

REAL  191  192 

•>. 

*  i 

007 AH 

4 

INTEGRAND!  .... 

REAL  194  195 

9 

0010H 

4 

JERK.Y  ...... 

REAL  124  126 

9 

001 4H 

4 

JERR.t  ...... 

REAL  125  126 

n  c 

OOAAH 

4 

k.OEF  . . . 

REAL  176  177 

191 

11 

0048H 

ji 

L ........  . 

INTEGER  91 

92 

132 

133 

134 

135 

15 

OOOOH 

4 

LEFT . 

REAL  EXTERNAL': 3' 

97 

LOH.  .  .  .  .  .  *  . 

BUILTIN  68 

72 

21 

006EH 

4 

MAX.RANGE.  .... 

REAL  100 

14 

0066H 

4 

MISSILE. Z . 

REAL  PUBLIC 

95 

187 

3« 

OOOOH 

MQEREXP,  ..... 

PROCEDURE  REAL  EXTERNAL'l 

5)  STACK=OOOOH 

166 

169 

180 

n 

005AH 

4 

OFF.H . 

REAL  PUBLIC 

95 

189 

191 

196 

199 

209 

210 

212 

23 

00°2H 

4 

OMEGA. H . 

REAL  170  172 

174 

24 

OO'JAH 

4 

OMEGA.SO.H  .... 

REAL  172  176 

177 

193 

24 

009EH 

4 

OMEGA.SO.V  .... 

REAL  173  184 

2? 

0096H 

4 

OMEGA. 0,  ..... 

REAL  171  173 

175 

2- 

2000H 

14400 

RESULTS . 

STRUCTURE  ARRAY (800) 

AT  ABSOLUTE 

65 

69 

73 

208  20?  211 

213  214  216  218 

219 

220 

15 

OOOOH 

4 

RIGHT . . 

REAL  EXTERNAL (2) 

97 

14 

OOSbH 

4 

SHORT ....... 

REAL  PUBLIC 

97 

150 

151 

SIGNED  . 

BUILTIN  113 

114 

40 

OOOOH 

SOUND.  ...... 

PROCEDURE  EXTERNAL (1 

7>  STACK- OOOOH 

129 

163 

206 

12 

OOOOH 

1 

SPEECH.HIT  .... 

BYTE  EXTERNAL) 0! 

101 

160 

12 

OOOOH 

1 

SPEECH. MISS.  .  .  . 

BYTE  EXTERNAL' 1) 

101 

10 

0028H 

16 

STORE.GAEr  .... 

REAL  ARRAY! 4) 

92 

120 

133 

137 

10 

0038H 

16 

STORE. GAEZ  .... 

REAL  ARRAY' 4) 

92 

123 

134 

138 

10 

0018H 

16 

STORE.HTARG.  .  .  . 

REAL  ARRAY (4) 

92 

121 

135 

139 

26 

00B6H 

4 

SUMO . 

REAL  »6 

29 

OOOAH 

4 

S.GAEY  . 

REAL  MEMBER' RESULTS) 

219 

29 

OOOEH 

4 

S.GAEZ  ...... 

REAL  MEMBER (RESULTS) 

220 

29 

OOOOH 

L 

S .  X .  .  .  .  .  .  .  . 

WORD  MEMBER 'RESULTS) 

73 

208 

29 

0002H 

4 

S_Y.  ....... 

REAL  MEMBER (RESULTS' 

69 

209 

211 

213 

29 

0006H 

4 

S  _L .  .  .  .  .  .  .  . 

REAL  MEMBER* RESULTS' 

65 

214 

216 

218 

43 

OOOOH 

TARGET. DATA,  ,  .  . 

PROCEDURE  EXTERNAL' 18'  STACK=0000H 

lit 

3 

AOODH 

1 

TARGET. SNITCH.  .  . 

BYTE  AT  ABSOLUTE 

83 

19 

006AH 

2 

TEMP  ,  . 

INTEGER  65 

66 

68 

69 

70 

72 

7 

00E9H 

1 

THREE.SEC.FLAG  .  . 

BYTE  PUBLIC 

98 

112 

203 

TIME . 

BUILTIN  64 

77 

i 

OOCOH 

TONFLIGHTMODULE,  . 

PROCEDURE  STACK=Q000H 

50 

OOOOH 

TRACT  1.  .  ,  ,  .  . 

PROCEDURE  EXTERNAL '2 

1)  STACK=OOOOH 

155 

*,  S 


52 

OOOOH 

TRACK. 2.  . 

4 

4 

» 

* 

PROCEDURE  EXTERNAL  (22)  STACK=000(»H 

*  •' 

51 

0000H 

TRACK. 3 •  . 

. 

1 

1 

4 

PROCEDURE  EXTERNAL (23)  STACK=0000H 

q 

6 

A081H 

1 

TURNED  .  . 

1 

4 

4 

4 

BYTE  AT  ABSOLUTE 

86 

UNSIGN  .  . 

1 

4 

4 

4 

BUILTIN  68  72 

183 

$ 

15 

OOOOH 

1 

UP  ...  . 

» 

1 

4 

4 

REAL  EXTERNAL* 1> 

97 

17 

OOOOH 

UPDATE .COUNTS. 

4 

4 

PROCEDURE  EXTERNAL (20)  STACK=0000H 

rS'm 

rm  -■ 

27 

OODAH 

1 

VANG  .  .  . 

I 

« 

4 

4 

REAL  95  117  200 

r.'. 

27 

OOD2H 

1 

VTARG.  .  . 

i 

t 

4 

4 

REAL  95  200 

n 

**  •* 

21 

0072H 

1 

VX  .  .  .  . 

1 

4 

4 

4 

REAL  180  181  191 

"S'? 

Li. 

0082H 

4 

VZ  .  .  .  . 

» 

• 

4 

4 

REAL  90  181  185 

106  188 

1 

A01BH 

1 

V.REP.GO  . 

« 

4 

* 

4 

BYTE  AT  ABSOLUTE 

103 

\\* 

1 

A01AH 

1 

V.REP.RG  . 

1 

» 

1 

4 

BYTE  AT  ABSOLUTE 

103 

%  ’ 

10 

OOOOH 

1 

WHAT. KINO. 

« 

4 

« 

4 

BYTE  PARAMETER  11 

v- 

11 

OOEBH 

1 

WIRE .BROKE 

* 

« 

4 

* 

BYTE  PUBLIC  94 

128 

1 

11 

0062H 

1 

X ....  . 

1 

4 

4 

4 

REAL  PUBLIC  95 

150  166 

■„  j\ 

199  200 

V-\ 

31 

OOOOH 

1 

X .  .  .  .  . 

t 

4 

4 

4 

REAL  PARAMETER  35 

V* 

26 

OOCEH 

1 

XTARG.  .  . 

* 

4 

4 

4 

REAL  9?  150 

Sv 

AV 

1 

A010H 

7 

YANG.EIRD. 

1 

4 

4 

4 

INTEGER  AT  ABSOLUTE 

lie 

11 

005EH 

i 

Z .  .  .  .  . 

• 

4 

4 

4 

REAL  PUBLIC  95 

131  186 

1 

A012H 

n 

L. 

ZANCJIRD. 

4 

1 

1 

4 

INTEGER  AT  ABSOLUTE 

117 

2"5 

008AH 

1 

ZETA.H  .  . 

6 

4 

4 

• 

REAL  167  171 

2? 

008EH 

1 

ZETA.V  .  . 

4 

4 

4 

4 

REAL  168  175 

t. 


k.v 


tv 


156 

157 


85 


169  182  183  1B1  190 


187  200  211  215  217 


MODULE  INFORMATION! 


CODE  AREA  SIZE 
CONSTANT  AREA  SIZE 
VARIABLE  AREA  SIZE 
MAXIMUM  STACK  SIZE 
382  LINES  READ 
0  PROGRAM  ERROR (S) 


0B18H 

OOOOH 

OOEDH 

0008H 


2840D 

OD 

237D 

8D 


EM)  OF  PL/M-86  COMPILATION 


84 


191  1*! 


ISIS-II  PL/M-B6  Vi.l  COMPILATION  OF  MODULE  TON.TARGET.HODULE 
OBJECT  MODULE  PLACED  IN  IF2!T0WTAR,0BJ 

COMPILER  INVOKED  BY!  F1M86  : FZ : TOHTAF: .005  DEBUG  ROM  MEDIUM  XREF  IXREF  WORKFILES( IFZt » :F2t )  DATE(  1/13/83 


1  ton.target.hodule:  do; 

/xiiiixxixxixxiixxxxiixiixxxxxxxixiixiiiiixxxxxxxxxxxiixxix 

FFF -BOARD  ABSOLUTE  ADDRESSES 

XXXXXXXXXXXllXXXXXXXXXIXXXXXXXXXXXIXXXXXXXXXXXXXXXXXXXXXXX/ 

2  1  DECLARE  'EIFD.HITS.  BIRD.MISSES)  BYTE  AT  (0A016H)! 

3  1  DECLARE  GRND.BIRD  BYTE  AT  (OAOICHU 

A  1  DECLARE  (STARTING.TRACK,  TARGET. SNITCHr  FINAL. TRACK)  BYTE  AT  (OAOOCH) : 

5  1  DECLARE  ( HIT.KILL , HIT.DISABLE )  BYTE  AT  (0A020H)! 

/xxxxxxxmxxxxxxxix  GLOBAL  VARIABLES  xxxxxxxxxxxxxxxxxxxxx/ 

c  1  DECLARE  (SPEECH.HIT ,  SPEECH.MI5S'  BYTE  EXTERNAL) 

7  1  DECLARE  P0RT.C  LITERALLY  'OCCH'!  /x  8255  PARALLEL  PORT  C  1/ 

S  1  DECLARE  FINISHED  BYTE  EXTERNAL! 

It  MOTOR  COUNTS’  TC0UNTC  IS  INITIAL  TARGET  COUNT  x/ 

’  1  DECLARE  (TCNT,  ACNT ,  DCNT,  TCOUNTO)  INTEGER  PUBLIC! 

10  1  DECLARE  ( RIGHT t LEFT f UP '  REAL  PUBLIC! 

11  1  DECLARE  (HILL. IMPACT.’  CURRENT.TRACK)  BYTE  PUBLIC! 

12  1  DECLARE  (GAEZ.F >  X,  Z,  HIS5ILE.Z,  HTARG,  OFF.H)  REAL  EXTERNAL! 

xixxxxiiixxxxxxxx  EXCLUSIVE  VARIABLES  xxxxxixiixxxjxxxxxxx/ 

> *  ALPHA  IS  ROTATION  OP  TANK  IN  RADIANS.  DEPRESSION  DEPTH  IS 
DEPTH  OF  FRONT  TANK  IN  METERS  */ 


13  1  DECLARE  ( ALPHA , DEPRESSION.DEPTH )  REAL! 

11  1  DECLARE  ( MISSILE. YiTARGET.Y i  EFFECTIVE.TANK.LENGTHf  EFF.HALF.TANK.LENGTH)  REAL! 

15  1  DECLARE  (HILL.Z,  TARGET.Z,  BETA,  MAGNITUDE,  ANGLE)  REAL! 

16  1  DECLARE  (TEMP,  EFF.HALF.TANK.HEIGHT ,  MISSILE. Y. PRIME,  MISSILE.Z.PRIME)  REAL! 

17  1  DECLARE  I  BYTE! 

It  TABLE  OF  HILL  SLOPE  ANO  HEIGHT  AS  A  FUNCTION  OF  TARGET  COUNT  */ 


DECLARE  HILL_SLOf'E ( 32 1  REAL  DATA 

(0. »0. 1571 ,0. ,-0. 1309,0. ,0.0699,0. 1356, 0.2 182, 0.2531, 
0.2091,-0.0319,-0.2182.-0.3191.-0.0785.0.1222.0.1131 
-0. 2113. -0.2531. -0.0521,-0. 0175. 0.0136,0. 1017.0. 1920 
0. 0785*0. 1715, 0.2880*0. 1396, -0.1131, -0.3191-0. 2880, 
-0.2268,0.)! 

DECLARE  HILL_HEIGHT (32  >  REAL  DATA 

(0.. 0.2898. 1.2318, 0.9120,0., 0.0725, 0.7971, 2. 1013. 

3.8101,7.3909,8.1155,7.3185,5.2896,3.1781,3.1781, 
1.3176 ,3. 7679, 1.5217, 0.2898, 0,1 11° ,0.2171, 0.9120, 
1.9561, 3. 1158, 3.8401,5. 5070, 7. 5358, T. 6808, 5.7213, 
3.2607,1 . 1591,0. )  R 

/*  ALL  DIMENSIONS  IN  METERS  «/ 

DECLARE  TANK.LENGTH  LITERALLY  '8.3', 

TANK. WIDTH  LITERALLY  '3.9', 

TANK.HEIGHT  LITERALLY  '2.9', 

KILL  BOX  LITERALLY  '1.15', 

HALF. TANK.HEIGHT  LITERALLY  '1.15', 

LAUNCH.HEIGHT  LITERALLY  '0.9111'; 

/i  PARAMETERS  FOR  SOUND  * 

DECLARE  HIT. TARGET  LITERALLY  T, 

GROUND. EyR  LITERALLY  '2'; 

/»  TYRE  OF  HIT  CONTROLS  REPRISE  COMMENT! 

REGULAR  =•  'HIT' 

HIT  KILL  ='  'HIT  KILL' 

HIT  DISABLE  =■  ‘HIT  DISABLE'  «/ 

DECLARE  REGULAR  LITERALLY  'O', 

DISABLE.  LITERALLY  T, 

KILL  LITERALLY  ’2'; 

/Iiuiiinimini  EXTERNAL  PROCEDURES  immimimmn/ 

/*  8087  PROCEDURES  IN  CEL87*LIB  »/ 

•<jerAT2!  PROCEDURE  (Y.X-  REAL  EXTERNAL! 

DECLARE  (Y.X)  REAL! 

END  «<(erAT2; 

i^erCOS!  PROCEDURE  (THETA)  REAL  EXTERNAL! 

DECLARE  THETA  REAL! 

END  iqerCOS; 

•qerSIN!  PROCEDURE  (THETA'  REAL  EXTERNAL! 

DECLARE  THETA  REAL! 

END  t^erSIN! 

•qer Y2X !  PROCEDURE  (Y,X)  REAL  EXTERNAL! 

DECLARE  (Y,X)  REAL! 

END  icjerYZX! 

SOUND!  PROCEDURE  'WHAT. KIND)  EXTERNAL! 

DECLARE  WHAT. KIND  BYTE) 

END  SOUND! 


/ixxxxxxxixiiixxi  MODULE  PROCEDURES  xiiiiixxxxxxxxxxx,' 


/*  RECEIVE  GETS  A  BYTE  FROM  THE  UPI-91  MOTOR  CONTROLLER  »/ 

39  1  RECEIVE!  PROCEDURE  BYTE  PUBLIC! 

90  2  DECLARE  STATUS  BYTE  AT  (OFOOOH),  INDATA  BYTE  AT  (0F002H.U 

91  2  00  WHILE  STATUS!  ft  WAIT  UNTIL  OBF  =  1  if 

92  3  END! 

93  2  RETURN  NOT'INDaTAU  ft  MULTIBUS  INVERTS  */ 

99  2  END  RECEIVE: 

i  SEND  OUTPUTS  A  BYTE  tq  THE  UPI-91  MOTOR  CONTROLLER 

95  !  SEND:  PROCEDURE  (OUTDATA)  public; 

96  2  DECLARE  OUTDATA  BYTE  ,  STAT.COM  BYTE  AT  (OFOOOH) , 

P.DATA  BYTE  AT  (0F002H): 

97  2  DO  WHILE  NOT  SHR‘STAT_C0M,1>!  /*  WAIT  UNTIL  UPI91  IBF  =  0  if 

98  3  END! 

99  2  P.DATA  =  NOT  OUTDATA!  /*  MULTIBUS  INVERTS  */ 

50  2  END  SEND! 


,'x  GET. COUNT  OBTAINS  A  SPECIFIED  MOTOR'S  ABSOLUTE  POSITION  FROM 
THE  UPI-91  » 


51  1  GET.COUNT:  PROCEDURE  (MOTOF:.NUftBER.»  INTEGER! 

52  7  DECLARE  MOTOR  .NUMBER'  BYTE ; 

53  DECLARE  (LSB,MSB)  E-YTE! 

59  2  DECLARE  COUNT  INTEGER  AT  <@LSB'! 

55  2  CALL  SENDi'C')!  H  UPI-91  PROMPT  FOR  SENDING  */ 

56  2  MSB  =  RECEIVE!  '»  TARGET  COUNT  TO  86/12  «/ 

57  2  LSB  *  RECEIVE! 

58  2  RETURN  COUNT: 

5R  2  END  GET.COUNT! 

>t  UPDATE.COUNTS  UPDATES  THE  MOTOR  COUNTS  ON  THE  CURRENT  TRACI! . 

WHEN  FIRST  PASS  IS  SET »  THE  TCNT  ON  THE  STARTING  TRACI'  IS 
RECORDED  IN  TCOUNF.  THIS  IS  DONE  FROM  INITIATE  VARIABLES. 

FOR  AlL  OTHER  CAllS-  FIRST.RASS  IS  RESET •  AND  THE  CURRENT 
TRACK'S  MOTOR  COUNTS  ARE  UPDATED,  i 


6  V  1 

61  2 
62  2 
63  3 

69  3 

65  9 

C  ‘ 

68  9 

.0  '* 

’5  1 

:i  4 

7:  9 

;9  3 

75  9 


UPDATE.COUNTS!  PROCEDURE  (FIRST.RASS)  PUBLIC! 
DECLARE  FIRST. PASS  BYTE! 

DO  CASE  (CURRENT. TRACK  AND  03H>! 


DO! 

IP  FIRST.RASS  =  1 
THEN  TCOUNTO  =  GET. COUNT!  1) ! 
ElSE  TCNT  =  GET.COUNT!! >! 
END! 

DO! 

IF  FIRST.RASS  =  1 

THEN  TCOUNTO  =  GET.C0UNT(2) ! 

ELSE  TCNT  =  GET.COUNT'?) ! 

END-' 

DO! 

F  FIRST. PASS  -  1 
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Aw*  d’  i  rfl  frnuXm 


THE*  TCQUNTO  =  GET_COU«T  3'‘5 
ELSE  TENT  =  GET.COUHTO ); 
END: 

END! 

END  UFDATE. COUNTS! 

TARGET.OATA!  PROCEDURE  PUBLIC; 


/»  FIRST.  CET  HTARC  FOR  f'LIGMT »  THEN  GET  TARGET. T  IN  CASE  TANK 
IS  ON  TRACK. 3.  the*  GCt  EFFECTIVE  TANK  LENGTHS  AND  HEIGHTS. 

THEN  GET  HILL  SLOPE  AND  HI_L  Z  IN  CASE  TANK  IS  On  TRACK  I. 

IN  ANY  CASE.  GET  TARGET  Z  FOR  GROUNDED  PROCEDURE.  */ 

CALL  UPDATE. COUNTS ( 0  > ; 

HTARG  =  1.694E-5  *  FLOAT iTCNT  -  TCQUNTO';  /«  1.699E-5  RAD/COUNT  * 

TARGET. Y  =  0.0524?  i  FLOAT (TENT)!  /*  0.0524?  NETERS/COUNT  » 

ALPHA  =  FLOAT ( ACNT ) /15 . 278875 >  /«  15.278875  COUNTS/RAO.  i/ 

IF  DC NT  >  200 

THEN  DEPRESSION.DEPTH  =  TANK.HEIGHT  i  FL0ATC550  -  DCNT-/350.;  /*  350  COUNTS  IN  A  TANK .HEIGHT  « 
ELSE  DEPRESSION.OEFTH  =  TANK.HEIGHT;  /*  TANK  IS  HIDDEN  »/ 


/ *  CORRECT  GUNNER  AIMING  ERROR  Z  ON  TRACK  U  NOTE  DCNT  =  550  ON  ALL  OTHER  TRACKS*/ 

GAE7.F  =  GAEZ.F  ♦  TANK.HEIGHT  «  rLOAT .  550-DCNT ' /l .  C50E6 »’ 

EFFECTIVE.! ANK .LENGTH  =  TANK.LcnGTH  *  ABS * »qer COS < ALPHA ' )  * 

TANk.NIITH  *  ABS  mRer  SIN '.ALPHA)); 

EFF.HALE. TANK.  .LENGTH  =  EFFECTI VE.T  ANK.LENGTH/2 . 0 ! 

EFF.HALF.TANK.HEIGHT  =  'TANK.HEIGHT  -  DEPRESSION.DEPTH • /2 . 0 ? 

IF  CURRENT.TRACK  =  2 
THEN  HILL .DATA!  DO! 

/minimi  GET  HILL  SLOPE  AND  HILL  Z  AT  TARGET  mimimm/ 

/*  GET  ENTRY  JUST  BEYOND  TARGET  Y  */ 

i  =  o; 

DO  WHILE  TENT  '■=  MODEL  .COUNT  (1). 

1  =  1-*  i ; 

end; 

/*  IF  OUT  OF  TABLEr  THEN  EVERYTHING  IS  ZERO  */ 

IF  (I  =  0)  OR  (I  '=  32  ) 

THEN  BETAr  HILL.Z  =  O.l 

/*  IF  IN  TABLE.  INTERPOLATE  */ 


ELSE  DO! 

BETA  =  HILL. SLOPE  I'  ■ 
HILL.Z  =  HILL .HEIGHT > I 

end; 


FLDAT 1  f MODEL. COUNT 1 1 >  -  TCNT >  13E,'» 
(HILL.SLOPE(I)  -  HILL.  SLOPE  a-!'"! 

'  -  FlOAT i 'MODEL. COUNT ( I '  -  TCNT ;  130'* 
(HILL.HEIGHT(I)  -  HILL. HEIGHT :I-1"  : 


END  HILL. DATA! 
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p 

u 

w  - — - - 

D-A143  646  SIMULATED  TANK  ANTI-ARMOR  GUNNERV  SVSTEM  (STAGS-! 

(U)  NAVAL  TRAINING  EQUIPMENT  CENTER  ORLANDO  FL 

A  MARSHALL  ET  AL.  MAV  82  PMT-E-T-6605.  82 
NCLASSIFIED  F/G 

OH) 

9/5 

NL 

1 

" 

! 

106  2 

107  3 

108  3 

109  3 

110  3 

111  3 

112  2 

113  1 

111  2 


110  1 

119  2 

120  2 

121  2 
122  2 
123  2 

121  2 

125  3 

126  3 

127  3 

128  3 

127  3 

130  2 

131  1 


131  1 

135  2 

136  2 

137  2 

139  3 

110  3 

111  3 

112  2 


DO  CASE  (CURRENT. TRACK  AND  03H>; 

t 

TARGET.Z  =  HALF.TANK.HEIGHT  -  DEPRESSION. DEPTH! 

TARGET.Z  =  HILL.Z  +  HALF.TANK.HEIGHT! 

TARGET.Z  =  HALF.TANK.HEIGHT! 

END! 

END  TARGET.DAT A! 

ACTIVE.TRACK !  PROCEDURE  PUBLIC! 

IF  TARGET. SNITCH  =  0 

THEN  CURRENT. TRACK  =  STARTING.TRACK! 

ELSE  CURRENT.TRACK  =  FINAL.TRACK! 

END  ACTM.TRACKi 

HIT!  PROCEDURE (TYPE)! 

DECLARE  TYPE  BYTE! 

CALL  SOUND (HIT.TARGET)! 

SPEECH.HIT  =  1! 

BIRD .MISSES  ? SPEECH.HISS  =  0! 

FINISHED  =  15 
DO  CASE  TYPE! 

BIRD.HITS  =  1! 

HIT.DISABLE  =  1! 

HIT.KILL  =  15 

END! 

END  HIT! 

HILL!  PROCEDURE! 

BIRD.NISSES  ?  SPEECH.HISS  ?  HILI _ IMPACT  =  1! 

END  HILL! 

GROUNDED!  PROCEDURE  PUBLIC! 

DECLARE  HEIGHT  REAL! 

HEIGHT  =  ((TARGET.Z  -  LAUNCH.HEIGHT)*  X  /  3000.)  ♦  LAUNCH.HEIGHT 
IF  (HEIGHT  +  Z5  <«  0. 

THEN  DO! 

FINISHED?  GRND.BIRD  =  li 
CALL  SOUND (GROUND.EXP)! 

END! 

END  GROUNDED! 


113  1 

111  2 


/i  LEVEL  DETERMINES  HIT  OR  MISS  FOR  TARGET  ON  LEVEL  TERRAIN.  «/ 

LEVEL!  PROCEDURE  (HNISS?VHISS)! 

DECLARE  (HNISS'VHISS)  REAL! 


115  2 


117  3 

1 90  3 

.50  3 

1 51  2 

152  3 

153  3 


IF  ABS(VMISS)  <  EFF.HALF.TANK.HEIGHT  AND 
ABS(HMISS)  •'  EFF.HALF  .T ANK  .LENGTH 
THEN  DO! 

IF  ABS(HMISS)  <  KILL.BOX  THEN  CALL  HIT (KILL)! 
ELSE  CALL  HIT (DISABLE. >! 

END! 

ELSE  FLY.PAST!  DO! 

BIRD.NISSES? SPEECH.HISS  =  1? 

IF  HMISS  >  EFF.HALF. TANK  LENGTH 


155 


R 


3 


157  3 

159  3 

161  3 

162  2 


THEN  LEFT  =  HHISS  -  EFF.HALF.TANK.LENGTH! 

IF  HHISS  (  0.  AND  ABS(HMISS)  >  EFF.HALF.T ANK.LENGTH 
THEN  RIGHT  =  HHISS  ♦  EFF_HALF_TANK_LENGTH! 

IF  VHISS  >  EFF.HALF.T ANK.HEIGHT 
THEN  UP  =  VHISS  -  eff.half.tank.height; 

IF  VHISS  <  0.  AND  ASS (VHISS)  >  EFF.HALF.TANK.HEIGHT 
THEN  CALL  HILL! 

EM)  fly.past; 

end  level; 

/«  FALLING  SLOPE  DETERMINES  HIT  OR  HISS  FOR  TARGET  PARTIALLY 
OBSCURED  BY  A  HILL  HITH  SLOPE  FALLING  FRQH  RIGHT  TO  LEFT  * ' 


163 

161 

165 

166 

167 

168 
169 


171 

172 

173 


175 

176 

178 

180 


182 

183 

181 


C-& 

185 

9? 

186 

y.v. 

187 

188 

189 

190 

191 

r#r) 

.•■/.* 

/-,  • 

193 

9r  i 

191 

195 

m 

197 

■•V, 

198 

JI  JI  ", 

1 

n 

4. 

9 

i. 

2 

2 

2 

2 


3 

3 

3 

1 

1 

1 

1 

3 

2 


1 

2 

2 

2 

2 

2 

2 


2 

•> 

w 

3 

3 

4 


FALLING.SLOPE!  PROCEDURE  (SLOPE*  INTERCEPT)* 

DECLARE  (SLOPE*  INTERCEPT)  REAL* 

DECLARE  (HILL.Y*  LEFT.TANK.EDGE,  RIGHT.TANK.EDGE)  REAL* 
HILL.Y  =  (HISSILE.Z  -  INTERCEPT > /SLOPE* 

LEFT.TANK.EDGE  *  TARGET.Y  ♦  EFF.HALF.TANK.LENGTH! 
RIGHT.TANK.EDGE  =  TARGET.Y  -  EFF.HALF.TANK.LENGTH! 

IF  (HISSILE.Z  >  0.)  AND  (HISSILE.Z  <  TANK .HEIGHT)  ANO 
(HISSILE.Y  <  LEFT.TANK.EDGE  AND  HISSILE.Y  >  HILL.Y)  AND 
(HISSILE.Y  >  RIGHT.TANK.EDGE) 

THEN  CALL  HIT (REGULAR)! 

ELSE  HISS!  DO! 

BIRD.HISSES  *  SF'EECH.HISS  =  1! 

IF  HISSILE.Y  <  HILL.Y 
THEN  CALL  HILL! 

ELSE  FLY.PAST1  DO! 

IF  HISSILE.Y  >  LEFT.TANK.EDGE 

THEN  LEFT  =  HISSILE.Y  -  LEFT.TANK.EDGE! 

IF  HISSILE.Y  <  RIGHT.TANK.EDGE 

THEN  RIGHT  =  RIGHT.TANK.EDGE  -  HISSILE.Y! 

IF  HISSILE.Z  >  TANK.HEIGHT 

THEN  UP  =  HISSILE.Z  -  TANK.HEIGHT! 

END  FLY.PAST! 

END  HISS! 

END  FALLING.SLOPE! 

/«  RISING  SLOPE  DETERMINES  HIT  OR  HISS  FOR  TARGET  PARTIALLY 
OBSCURED  BY  A  HILL  WITH  SLOPE  RISING  FROH  RIGHT  TO  LEFT.  «/ 

RISING.SLOPE!  PROCEDURE  (SLOPE*  INTERCEPT)! 

DECLARE  (SLOPE*  INTERCEPT)  REAL! 

DECLARE  (HILL.Y,  RIGHT.TANK.EDGE*  LEFT.TANK.EDGE)  REAL! 
HILL.Y  =  (HISSILE.Z  -  INTERCEPT) /SLOPE! 

RIGHT.TANK.EDGE  =  TARGET.Y  -  EFF.HALF.TANK.LENGTH! 
LEFT.TANK.EDGE  *  TARGET.Y  ♦  EFF.HALF.TANK.LENGTH! 

IF  (HISSILE.Z  >  0.)  AND  (HISSILE.Z  <  TANK.HEIGHT)  AND 
(HISSILE.Y  >  RIGHT.TANK.EDGE  AND  HISSILE.Y  <  HILL.Y)  AND 
(HISSILE.Y  <  LEFT.TANK.EDGE) 

THEN  CALL  HIT ( REGULAR ) ! 

else  hiss:  do; 

BIRD.HISSES *SPEECH.HISS  =  1! 

IF  HISSILE.Y  >  HILL.Y 
THEN  CALL  HILL! 

ELSE  FLY.PAST:  DO! 

IF  HISSILE.Y  ■;  RIGHT.TANK.EDGE 


90 


% 


200  4 


202  4 

204  4 

205  3 

206  2 


207  1 

208  2 
20?  2 
210  2 


211  1 


m 

215 

■WJ 

b 

i  •  „  * 

216 

:<• 

i  217 

213  2 

214  2 


218  1 


21?  2 


720  2 


THEN  RIGHT  =  RIGHT .TANK.EDGE  -  HISSILE.YJ 

IF  MISSILE.!  >  LEFT.  TAW.  EDGE 

THEN  LEFT  =  HISSILE.Y  -  LEFT. TANK. EDGE! 

IF  MISSILE.Z  >  TANK .HEIGHT 
THEN  UP  =  MISSILE.Z  -  TANK.HEIGHT; 

EM)  FLY.PAST! 

END  miss; 
end  risimg.slope; 

/i  TRACK  1  ADJUSTS  MISSILE  Z  FOR  POSSIBLE  DEPRESSION  AND  CALLS 
LEVEL  TO  DETERMINE  HIT  OR  MISS  H 

TRACK.1J  PROCEDURE  PUBLIC! 

TEMP  *  MISSILE.Z  -  DEPRESSION.DEPTH  -  EFF.HALF.TANK.HEIGHT ! 

CALL  LEVEL (OFF.H,  TEMP)! 

END  TRACK. 1! 

/«  TRACK  2  ROTATES  OFF.H  AND  Z  INTO  COORDINATE  SYSTEM  CENTERED 
ON  THE  TARGET  AND  PARALLEL  TO  THE  SLOPE  OF  THE  HILL*  THE 
MISSILE  COORDINATES  IN  THIS  SYSTEM  ARE  THEN  USED  TO  CALL  LEVEL  «/ 
TRACK.2J  PROCEDURE  PUBLIC! 

MAGNITUDE  =  *ierY2X((iqerY2X(0FF_H,2.0)  ♦  *qerY2X(Z,2.0)),0.5>! 

ANGLE  =  •<?erAT2(0FF_H,Z)! 

MISSILE.Y.PRIME  =  MAGNITUDE  *  ^erSIMANGLE  +  BETA)! 

MISSILE.Z.PRIME  *  MAGNITUDE  *  COS (ANGLE  ♦  BETA)? 

/mini  WITH  NEH  COORDINATES,  CALL  LEVEL  FOR  HIT  OR  MISS  limn/ 

CALL  LEVEL (MISSILE.Y.PRIME,  MISSILE.Z.PRIME)! 

END  TRACK.2! 

/i  TRACK  3  IS  BROKEN  UP  INTO  REGIONS  OF  LEVEL  TERRAIN,  FALLING 
SLOPE  OBSCURING  TANK,  RISING  SLOPE  OBSCURING  TANK,  AND  TOTALLY 
AND  TOTALLY  OBSCURED.  TCNT  IS  USED  TO  PLACE  THE  TARGET  IN  THE 
CORRECT  REGION,  AM)  THEN  THE  APPROPRIATE  PROCEDURE  IS  CALLED.  1/ 

TRACK.3!  PROCEDURE  PUBLIC! 

/i  BREAKPOINTS  OF  REGIONS  »/ 

DECLARE  Y.A  LITERALLY  '52.52', 

Y.B  LITERALLY  '*5.22', 

Y.C  LITERALLY  '120.00', 

Y.D  LITERALLY  '141.70', 

Y.E  LITERALLY  '165.30', 

Y.F  LITERALLY  '100.70', 

Y.G  LITERALLY  '222. BO', 

Y.H  LITERALLY  '233.20'! 

/«  PARAMETERS  OF  HILL  IN  FALLING  AND  RISING  SLOPE  REGIONS  «/ 

DECLARE  B.StOPE  LITERALLY  *0.2105', 

B.INCPT  LITERALLY  '-11.06', 

D.SIOPE  LITERALLY  '-0.1323', 
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D.INCPT  LITERALLY  *18.75' » 

F .SLOPE  LITERALLY  ‘0.1705', 

F.INCPT  LITERALLY  ‘-28. 17', 

H.SLOPE  LITERALLY  ‘ -0.2116 '> 

H.INCPT  LITERALLY  '56.36' ) 

/■  TANK  IS  LOCATED  IN  CORRECT  REGION*  AM)  APPROPRIATE  RULES 
OF  HIT  OR  HISS  APPLIED  */ 


221  2  HISSILE.Y  =  TARGET.Y  ♦  OFF.H) 

222  2  IF  TARGET.Y  <  (Y.A  -  EFFECTIVE. TANK.LENGTH} 

THEN  CALL  LEVEL  (OFF. Hf  Z)i 
221  2  ELSE  IF  TARCET.Y  <  Y.B 

THEN  CALL  RISING  .SLOPE  ( B.SLOPE , B.INCF'T )  ) 

226  2  ELSE  I F  TARCET.Y  <  Y.C 

THEN  CALL  HILL) 

228  2  ELSE  IF  TARGET.Y  <  (Y.O  ♦  EFFECTIVES ANK.LENGTH) 

THEN  CALL  FALLING.SLOPE(D_SLOPEr D.INCPT)) 

230  2  aSE  IF  TARGET.Y  <  <Y_E  -  EFFECTIVE. TANK.LENGTH) 

THEN  CALL  LEVEL(OFF.H,Z)i 
232  2  aSE  IF  TARGET.Y  <  Y.F 

THEN  CALL  RISING.SLOPE ( F.SLOPE » F.INCPT ) ) 

231  2  aSE  IF  TARGET.Y  <  Y.G 

THEN  CALL  HILL) 

236  2  aSE  IF  TARGET.Y  <  (Y.H  ♦  EFFECTIVE. TANK. LENGTH) 

THEN  CALL  FALLIHG_SLQPE<  H.SLOPE  fH.INCPT ) ! 

238  2  aSE  CALL  LEVEL<OFF.H,Z>) 

23?  2  EMD  TRACX.3) 

210  1  END  TOH.TARGET.HODULE ) 


CROSS-REFERENCE  LISTING 


OEFN  AOOR  SIZE  NAME .  ATTRIBUTES*  AND  REFERENCES 


A6S . 

• 

•  • 

BUILTIN  90 

115 

117 

155 

159 

9 

0002H 

2 

ACNT . 

• 

•  * 

INTEGER  PUBLIC 

85 

113 

01FEH 

16 

ACTIVE.TRACK  ,  . 

« 

•  • 

PROCEDURE  PUBLIC  STACK=0002H 

13 

0011H 

1 

ALPHA . 

1 

1  1 

REAL  85  90 

15 

003CH 

1 

ANGLE . 

• 

•  ♦ 

REAL  213  211 

215 

15 

0031H 

1 

BETA . 

1 

•  • 

REAL  100  102 

211 

215 

2 

A016H 

1 

8IRD.HITS.  .  ,  . 

• 

•  « 

BYTE  AT  ABSOLUTE 

125 

2 

A017H 

1 

BIRD.MISSES.  .  . 

* 

*  » 

BYTE  AT  ABSOLUTE 

122 

132 

152 

220 

B.INCPT . 

• 

•  * 

LITERALLY  225 

220 

B.SLOPE . 

• 

I  ♦ 

LITERALLY  225 

51 

006FH 

2 

COUNT . 

1 

•  « 

INTEGER  AT  58 

11 

006DH 

1 

CURRENT.TRACK,  . 

♦ 

»  t 

BYTE  PUBLIC 

62 

93 

106 

115 

9 

0001H 

2 

DCNT . 

• 

•  » 

INTEGER  PUBLIC 

86 

87 

89 

13 

0018H 

1 

OEPRESSION.DEPTH 

• 

•  • 

REAL  87  88 

92 

108 

208 

23 

DISABLE.  .... 

• 

*  * 

LITERALLY  119 

220 

D  INCPT . 

• 

•  # 

LITERALLY  229 

220 

D.SLOPE . 

• 

6  » 

LITERALLY  229 

11 

0021H 

1 

EFFECTIVE.TANK.LENGTH . 

REAL  90  91 

222 

228 

230 

236 

16 

0011H 

1 

EFT  .HALF  _T  AN!' .HEIGHT  . 

REAL  92  115 

157 

158 

159 

208 

11 

0028H 

1 

EFF.HALF.T ANK.LENGTH  . 

REAL  91  115 

153 

151 

155 

156 

163 

0750H 

380 

FALLING.SLOPE.  . 

* 

•  • 

PROCEDURE  STACk=0020H 

229 

237 

1 

AOOEH 

1 

FINAL.TRACK.  .  . 

• 

•  1 

8YTE  AT  ABSOLUTE 

116 

6 

OOOOH 

1 

FINISHED  .... 

♦ 

«  • 

BYTE  EXTERNALS) 

123 

139 

60 

0006H 

1 

FIRST.PASS  .  .  . 

• 

*  • 

BYTE  PARAHETER  AUTOMATIC 

61 

65 

FLOAT 

« 

«  « 

BUILTIN  83 

81 

85 

87 

89 

151 

067 AH 

FLY.PAST  .  .  .  . 

• 

1  ♦ 

LABEL 

175 

0851H 

FLY.PAST  .... 

• 

•  • 

LABEL 

197 

09CDH 

FLY.PAST  .... 

1 

•  « 

LABEL 

220 

F.INCPT . 

• 

•  • 

LITERALLY  233 

220 

F.SLOPE . 

f 

•  • 

LITERALLY  233 

12 

OOOOH 

1 

CAEZ.F  «  •  •  •  • 

• 

<  1 

REAL  EXTERNAL (3) 

89 

51 

0235H 

37 

GET.COUNT ,  .  .  . 

• 

1  • 

PROCEDURE  INTEGER  STACK=OOOCH 

66 

3 

A01CH 

1 

GRND.BIRD.  .  .  . 

• 

1  1 

BYTE  AT  ABSOLUTE 

139 

131 

05A5H 

92 

GROUNDED  .... 

1 

•  • 

PROCEDURE  PUBLIC  STACK*OOOAH 

22 

GROUND.EXP  .  .  . 

• 

«  « 

LITERALLY  110 

21 

HALF.TANK .HEIGHT 

t 

•  t 

LITERALLY  108 

109 

110 

135 

0050H 

1 

HEIGHT  . 

1 

1  • 

REAL  136  137 

131 

058EH 

23 

HILL . 

• 

•  « 

PROCEDURE  STACK=0002H 

160 

171 

91 

03EAH 

HILL.DATA,  .  ,  . 

9 

•  9 

LABEL 

20 

OOCOH 

128 

HILL.HEIGHT .  .  . 

• 

9  9 

REAL  ARRAY(3Z)  DATA 

103 

11 

006CH 

1 

HILL.IHPACT,  ,  . 

# 

9  « 

BYTE  PUBLIC 

132 

19 

001CH 

128 

HILL.SLOPE  .  .  . 

• 

9  9 

REAL  ARRAY (32)  DATA 

102 

165 

0051H 

1 

HILL.Y  . 

« 

9  9 

REAL  166  169 

173 

187 

0060H 

1 

HILL.Y  . 

• 

9  9 

REAL  188  191 

195 

15 

002CH 

1 

HILL.Z  . 

1 

9  9 

REAL  100  103 

109 

118 

052CH 

98 

HIT . 

• 

9  9 

PROCEDURE  STACK=OOOAH 

118 

119 

5 

A021H 

1 

HIT.DISABLE.  .  . 

* 

9  9 

BYTE  AT  ABSOLUTE 

126 

5 

A020H 

1 

HIT.KILL  .... 

1 

9  9 

BYTE  AT  ABSOLUTE 

127 

22 

HIT.TARGET  .  . 

« 

9  9 

LITERALLY  120 

172  191 


116 


167  160  189  190 


70 

102 


75 

103 


67  71  72  76 


196  227  235 


170  192 


111  115  117  153  151  155  15* 


M3 

FFFCH 

1 

HMISS . 

4 

* 

4 

REAL  PARAMETER  AUTOMATIC 

111 

115 

117 

153 

151 

155 

156 

12 

0000H 

1 

HT  ARG  »»»**» 

* 

1 

4 

REAL  EXTERNAL ( 7 ) 

83 

220 

H.INCPT . 

4 

* 

4 

LITERALLY  237 

220 

H.SLOPE . 

1 

» 

* 

LITERALLY  237 

17 

006EH 

1 

I 

4 

4 

BYTE  95  96  97 

99 

102 

103 

10 

F002H 

1 

INDATA  *  •  •  *  • 

1 

4 

* 

BYTE  AT  ABSOLUTE 

13 

185 

FFF8H 

1 

INTERCEPT.  .  .  , 

1 

4 

4 

REAL  PARAMETER  AUTOMATIC 

186 

188 

163 

FFF8H 

1 

INTERCEPT.  .  .  . 

1 

1 

* 

REAL  PARAMETER  AUTOMATIC 

161 

166 

23 

KILL . 

1 

4 

* 

LITERALLY  118 

21 

KILL _80X  .... 

* 

* 

* 

LITERALLY  117 

21 

LAUNCH.HEIGHT .  . 

1 

* 

* 

LITERALLY  136 

10 

OOOCH 

1 

LEFT . 

1 

4 

4 

REAL  PUBLIC  151 

177 

201 

165 

00588 

1 

LEFT.TANK.EOGE  . 

1 

4 

4 

REAL  167  169  176 

177 

187 

0068H 

1 

LEFT.TANK.EOGE  . 

1 

* 

4 

REAL  190  191  200 

201 

113 

0601H 

335 

LEVEL . 

4 

4 

* 

PROCEDURE  STACK*001CH 

209 

216 

223 

231 

238 

53 

006FH 

1 

L5B*  «••••• 

1 

* 

4 

BYTE  51  57 

15 

00388 

1 

MAGNITUDE.  .  .  . 

I 

4 

4 

REAL  212  211  215 

193 

09A0H 

HISS  ♦•»••• 

1 

* 

4 

LABEL 

171 

0821H 

HISS . 

4 

* 

4 

LABEL 

11 

001CH 

1 

HISSILE.Y .  .  .  . 

1 

4 

* 

REAL  169  173  176 

177 

178 

179 

191 

195 

198 

199 

200 

221 

16 

0018H 

1 

MISSILE. Y.PRIME. 

1 

* 

* 

REAL  211  216 

12 

OOOOH 

1 

HISSILE.2.  .  .  . 

1 

4 

* 

REAL  EXTERNAL; 6' 

166 

169 

180 

181 

188 

191 

202 

203 

16 

001CH 

4 

MISSILE.2.PPIME. 

* 

* 

4 

REAL  215  216 

18 

OOOOH 

61 

MODEL .COUNT ,  .  . 

I 

* 

4 

INTEGER  ARRAY (32!  DATA 

96 

102 

103 

51 

0001H 

1 

MOTOR.NUMBER  .  . 

1 

4 

4 

BYTE  PARAMETER  AUTOMATIC 

52 

21 

OOOOH 

NQERAT2 . 

4 

* 

4 

PROCEDURE  REAL  EXTERNAL; 9)  STACK=0000H 

213 

27 

OOOOH 

N0ERC05 . 

4 

* 

4 

PROCEDURE  REAL  EXTERNAL; 10)  STACK=OOOOH 

90 

215 

30 

OOOOH 

NQERSIN . 

4 

» 

4 

PROCEDURE  REAL  EXTERNAL; 11)  STACK=OOOOH 

90 

211 

33 

OOOOH 

N0ERY2X . 

I 

4 

* 

PROCEDURE  REAL  EXTERNAL (1 

2)  STACK=OOOOH 

212 

53 

0070H 

1 

HSB ******  4 

1 

4 

* 

BYTE  56 

12 

OOOOH 

1 

OFF.H . 

4 

4 

4 

REAL  EXTERNAL ( 8 ) 

209 

212 

213 

221 

223 

231 

238 

15 

0006H 

1 

OUTDATA . 

I 

4 

* 

BYTE  PARAMETER  AUTOMATIC 

16 

19 

7 

PORT.C  . 

4 

4 

4 

LITERALLY 

16 

F002H 

1 

P.DATA  *  *  *  *  * 

1 

4 

* 

BYTE  AT  ABSOLUTE 

19 

39 

01E8H 

33 

RECEIVE . 

* 

* 

4 

PROCEDURE  BYTE  PUBLIC  STACK=0002H 

56 

57 

23 

REGULAR . 

* 

* 

* 

LITERALLY  170  192 

10 

0008H 

1 

RIGHT . 

4 

4 

4 

REAL  PUBLIC  156 

179 

199 

187 

0061H 

1 

RIGHT.TANK.EDGE. 

* 

* 

4 

REAL  189  191  198 

199 

165 

005CH 

1 

RIGHT. TANC.EDGE. 

4 

* 

4 

REAL  168  169  178 

179 

185 

08CCH 

380 

RISING.SLOPE  .  . 

* 

* 

4 

PROCEDURE  STACK=0020H 

225 

233 

15 

0209H 

11 

SEND  «««««• 

4 

4 

4 

PROCEDURE  PUBLIC  STACK=0001H 

55 

SHR  »«••••• 

4 

4 

4 

6UILTIN  17 

185 

FFFCH 

1 

SLOPE I##**# 

4 

* 

* 

REAL  PARAMETER  AUTOMATIC 

186 

188 

163 

FFFCH 

1 

SLOPE*  iiiii 

4 

* 

4 

REAL  PARAMETER  AUTOMATIC 

161 

166 

36 

OOOOH 

SOUND . 

* 

4 

4 

PROCEDURE  EXTERNAL; 13)  STACK=OOOOH 

120 

110 

6 

OOOOH 

1 

SPEECH.HIT  .  .  . 

* 

4 

* 

BYTE  EXTERNAL (0) 

121 

6 

OOOOH 

1 

SPEECH.MISS,  .  . 

4 

4 

4 

BYTE  EXTERNAL; 1) 

122 

132 

152 

172 

191 

1 

AOOCH 

1 

STARTING.TRACK  . 

* 

* 

* 

BYTE  AT  ABSOLUTE 

115 

10 

FOOOH 

1 

STATUS  . 

4 

4 

* 

BYTE  AT  ABSOLUTE 

11 

16 

FOOOH 

1 

STAT.COM  ,  ,  ,  . 

* 

* 

4 

BYTE  AT  ABSOLUTE 

17 

21 

TANK.HEIGHT .  .  . 

4 

4 

4 

LITERALLY  87  88 

89 

92 

169 

180 

181 

191 

202 

203 

21 

TANK.LENGTH.  .  . 

4 

* 

* 

LITERALLY  90 

21 

TANK.HIDTH  .  .  . 

4 

* 

* 

LITERALLY  90 

81 

02E5H 

537 

TARGET.DATA.  .  . 

* 

* 

* 

PROCEDURE  PUBLIC  STACK=0018H 

4 

AOOOH 

1 

TARGET.SHITCH.  . 

1 

4 

* 

BYTE  AT  ABSOLUTE 

111 

11 

0020H 

1 

TARGET. Y  .  .  .  . 

* 

* 

4 

REAL  81  167  168 

189 

190 

221 

222 

221 

226 

228 

230 

231  236 


15 

0030H 

1 

TARGET.Z  . 

REAL  108  109 

110  136 

9 

OOOOH 

2 

TCNT . 

INTEGER  PU8LIC 

67  72 

77 

83 

9 

0006H 

2 

TCOUNTO . 

INTEGER  PUBLIC 

66  71 

76 

83 

16 

0040H 

1 

TEMP . 

REAL  208  209 

30 

OOOOH 

1 

THETA . 

REM.  PARAMETER 

31 

27 

OOOOH 

1 

THETA . 

REAL  PARAMETER 

28 

1 

01E8H 

TOM.TARGETJWDULE.  .  . 

PROCEDURE  STACK«OOOOH 

207 

0A18H 

39 

TRACK.l . 

PROCEDURE  PUBLIC  STACK*0020H 

211 

0A6FH 

113 

TRACK.2 . 

PROCEDURE  PUBLIC  STACK*0020H 

218 

OAFEH 

102 

TRACK.3 . 

PROCEDURE  PUBLIC  STACK*00Z6H 

118 

0001H 

1 

TYPE . 

BYTE  PARAMETER  AUTOMATIC 

119 

121 

10 

0010H 

1 

UP . 

REAL  PUBLIC 

158  181 

203 

60 

025AH 

139 

UPDATE.COUNTS . 

PROCEDURE  PUBLIC  STACK«0012H 

82 

113 

FFFBH 

1 

VMISS . 

REAL  PARAMETER  AUTOMATIC 

111 

115 

36 

OOOOH 

1 

MHAT.KIND . 

BYTE  PARAMETER 

37 

21 

OOOOH 

1 

REAL  PARAMETER 

25 

12 

OOOOH 

1 

REAL  EXTERNALd) 

136 

33 

OOOOH 

1 

REAL  PARAMETER 

31 

21 

OOOOH 

1 

REAL  PARAMETER 

25 

33 

OOOOH 

1 

REAL  PARAMETER 

31 

219 

Y.A . 

LITERALLY  222 

2i? 

Y.B . 

LITERALLY  221 

219 

Y.C . 

LITERALLY  226 

219 

Y.D . 

LITERALLY  228 

219 

Y_E . 

LITERALLY  230 

2!9 

Y.F . 

LITERALLY  232 

219 

LITERALLY  231 

219 

Y.H . 

LITERALLY  236 

12 

OOOOH 

1 

REAL  EXTERNAL (5) 

137 

212 

213 

96  102 


158  159 


MO0ULE  INFORMATION* 

CODE  AREA  SIZE  «  0C90H 
CONSTANT  AREA  SIZE  >  OOOOH 
VARIABLE  AREA  SIZE  *  007 1H 
MAXIMUM  STACK  SIZE  *  0026H 
123  LINES  READ 
0  PROGRAM  ERROR(S) 

END  OF  PL/M-86  COMPILATION 


ISIS-II  PL/M-86  V2.1  COMPILATION  Of  MODULE  TOH.SPEECH.MODULE 
06JECT  MOOULE  PLACED  IN  SFZiTOWSPC.OBJ 

COMPILER  INVOKED  BYT  PLM86  :F2iT0HSPC .010  DEBUG  ROM  MEDIUM  XREF  IXREF  HORKFILESCFZJf !F2!)  DATEU/17/63) 

i  ton.speech.module:  do; 


II  DECLARE  ABSOLUTE  ADDRESSES 


DECLARE  DAY.SIGHT  BYTE  AT  (DA007H)*  CONTINUE  BYTE  AT  (0A01FH). 

EAST.WEST  BYTE  AT  (OAOOFH)t  STARTING. TRACK  BYTE  AT  (OAOOCH); 

DECLARE  ( H.MIS.ASCIIfV.MIS. ASCII > X.MIS. ASCII )  (22)  BYTE  AT  (0A022H); 


DECLARE  GLOBAL  VARIABLES 


DECLARE  (GUIDANCE.LOSTjHILL.IMPACT.  NIRE.BROKE)  BYTE  EXTERNAL? 


DECLARE  ( RIGHT  *  LEFT » UP » SHORT )  REAL  EXTERNAL? 


/iiiiiiiiiiiuiu  DECLARE  EXCLUSIVE  VARIABLES 


DECLARE  ALREADY.OUT  BYTE? 


/i  FLAG  USED  BY  COACHING  */ 


DECLARE  (SPEECH.HIT,  SPEECH.MISS)  BYTE  PUBLIC? 


DECLARE  I  WORD*  K  BYTE? 


DECLARE  PORT.B  LITERALLY  ' OCAH * »  PORT.C  LITERALLY  'OCCK'? 


/i  FIRE  SIGNAL  FROM  DIGITALKER  BOARD  */ 


10  1 


DECLARE  DONT.FIRE  LITERALLY  ' SHR ( INPUT ( PORT.B )»!)'? 


/i  GAE  LIMITS  WHICH  CAUSE  COACHING  WHEN  EXCEEDED  i/ 


11  1 


DECLARE  GAEH.LIMIT  LITERALLY  ,600,0E-6‘»  GAEV.LIMIT  LITERALLY  '150.0E-6'? 


DECLARE  HORD  CODES 


/i  VOICE  SUBSYSTEM  REQUIRES  A  SEQUENCE  OF  THREE  BYTES  TO 
SPECIFY  THE  HORD  OR  PAUSE  TO  BE  SPOKEN.  THE  FORMAT  IS 
HORD  PAGE  NUMBER*  HORD  ADDRESS  ON  PAGE)  VOLINS  OF  HORD  >/ 


12  1 


DECLARE  USE 
DAY 


NIGHT 

SIGHT 

SQUAD 

TANK 

EAST 

WEST 

THREE 

THOUSAND 

METER 

SS 


LITERALLY  * 02H,04Hr 02H ’ * 
LITERALLY  '02H)02H)02H’) 
LITERALLY  ,02H)08H)02H'f 
LITERALLY  *02H, HHrOZH*  r 
LITERALLY  '02H)lBHr03H') 
LITERALLY  '02H»00Hr03H* » 
LITERALLY  '02Ht0BH)02H') 
LITERALLY  ’ 02H» OCHf 02H ’ r 
LITERALLY  '00H)03H)02H') 
LITERALLY  'OOHf 1DH)02H' t 
LITERALLY  ’ 00H»6AH» 02H ' r 
LITERALL*  '00H.81H-02H' r 


AT. 

MY 

COMMAND 

FIRE 

FIRE.STUPID 

ABORT 

CEASE 

TRACKING 

HIT 

HISS 

RIGHT. 

LEFT. 

HIGH. 

LON. 

POINT 

FROM 

TARGET 

HUNDRED 

ON 

CORRECT 

VERY.SHORT.PAUSE 

SHORT.PAUSE 

MEDIUM.PAUSE 

LONG.PAUSE 

VERY.LONC-.PAUSE 


LITERALLY 

LITERALLY 

LITERALLY 

LITERALLY 

LITERALLY 

LITERALLY 

LITERALLY 

LITERALLY 

LITERALLY 

LITERALLY 

LITERALLY 

LITERALLY 

LITERALLY 

LITERALLY 

LITERALLY 

LITERALLY 

LITERALLY 

LITERALLY 

LITERALLY 

LITERALLY 

LITERALLY 

LITERALLY 

LITERALLY 

LITERALLY 

LITERALLY 


^H'OSH'O’H'r 
'02Hfl5Ht02H'» 
'02Ht03H»02H' 
'02Hf06H»03H' 
*02H»06Hf 03H* 

‘ OlHrOOH* 02H  * 
'02Hi0EH»02H‘ 

' 02H»10Ht02H* 
'02Hil3Hr02H' 

' 02Hi 12Hr02H ' 
'0OHf80Hf02H' 
‘OOHf43H»02H' 
•OOH.5BH>02H* 
'00Hfi7H?O2H' 
>00Hi7AHi02Hl 
'01^31^02^ 
*02H» 16H»02Ha 
'OOH.lCHf02H' 

*  OOH » 73H » 02H ' 

' OlHr l6Hf 02H  * 
'00HfA3Hf00H' 
,OOH»44H»OOH‘ 
'OOHr45H»OOH' 
•OOHfAiHfOOH' 
'OOH»47HtOOH' 


DECLARE  PHRASES 


/i  PHRASES  ARE  STORED  IN  ROM  AS  CONSTANT  STRINGS  OF  THE 
HORD  CODES  DEFINED  ABODE  «/ 


DECLARE  PHRASE. 
DECLARE  PHRASE. 


DECLARE  PHRASE. 


DECLARE  PHRASE. 


DECLARE  PHRASE. 


DECLARE  PHRASE. 


DECLARE  PHRASE. 


DECLARE  PHRASE. 


DECLARE  PHRASE. 
DECLARE  PHRASE. 


DECLARE  PHRASE, 


DECLARE  PHRASE. 


DECLARE  PHRASE. 


1  (i)  BYTE  DATA 

( USE » VERY.SHORT.PAUSE  t DAY » VERY.SHORT.PAUSE  t SIGHT ) I 

2  («)  BYTE  DATA 

( USE  f  VER Y.SHORT.PAUSE  »NIGHT  r  VERY.SHORT.PAUSE , SIGHT )  J 

3  (i)  BYTE  DATA 

( SQUAD i VERY .LONG.PAUSE  f  T ANK  f  MEDIUM.PAUSE ) 5 
T  (i)  BYTE  DATA 
( EAST  f  MEDIUM.PAUSE ) 5 
,5  <«)  BYTE  DATA 
(HESTfMEDIUM.PAUSE) ; 

6  («)  BYTE  DATA 

< THREE  i  VERY.SHORT.PAUSE  t  THOUSAW » SHORT.PAUSE  t  METER»  SS )  ! 
,7  («)  BYTE  DATA 

( AT. f  VER Y.SHORT.PAUSE » MY  t VERY.SHORT .PAUSE  *COMMAND ) 5 
.8  (i)  BYTE  DATA 
<CEASE»SHORT.PAUS£f TRACKING) f 
.9  <«)  BYTE  DATA 
(HIT)  t 

,10  <«)  BYTE  DATA 

(MISS» VERY.LONG.PAUSE) 5 
.11  («)  BYTE  DATA 

(HIGH_ » VER Y.LOHG.PAUSE  > 5 
.12  (i)  BYTE  DATA 
(RIGHT.)! 

.13  <»>  BYTE  DATA 
(LEFT)! 


DECLARE  PHRASE. H  («)  BYTE  DATA 
(METER); 

OECLARE  PHRASE.  15  <D  BYTE  DATA 
<SS); 

OECLARE  PHRASE.16  (*)  BYTE  DATA 
(SHORT.PAUSE) ; 

OECLARE  PHRASE.17  <D  BYTE  DATA 
(POINT)i 

DECLARE  PHRASE.18  («>  BYTE  DATA 
(LONG .PAUSE); 

DECLARE  PHRASE.19  (*)  BYTE  DATA 
(FIRE); 

DECLARE  PHRASE.2C  (■)  BYTE  DATA 
(FIRE.STUPID); 

DECLARE  PHRASE.21  (■)  BYTE  DATA 
(ABORT); 

DECLARE  PHRASE.22  (*)  BYTE  DATA 

(FROMfSHORT.PAUSEiTARGET) » 

DECLARE  PHRASE.23  («)  BYTE  DATA 
(THOUSAND); 

DECLARE  PHRASE.24  («)  BYTE  DATA 
(HUNDRED); 

DECLARE  PHRASE.25  (*)  BYTE  DATA 
(LON.)! 

DECLARE  PHRASE.26  (*)  BYTE  DATA 
(HIGH.); 

DECLARE  PHRASE.27  («)  BYTE  DATA 
(CORRECT) J 

/niuiiimmmini  MODULE  PROCEDURES  niininiiiiimiiiii/ 

/«  THE  SEND  PROCEDURE  WRITES  A  BYTE  TO  THE  UPH1  ON  THE 
DIGITALKER  BOARD  WHEN  IT  IS  READY  */ 

SEND!  PROCEDURE  (OUTDATA)? 

DECLARE  OUTDATA  BYTE-  STAT.COM  BYTE  AT  (00002H), 

P.DATA  BYTE  AT  (ODOOOH) J 

DO  WHILE  NOT  SHR(STAT.COM-l);  /«  WAIT  UNTIL  UPH1  IBF  =  0  */ 

end; 

P.DATA  =  NOT  OUTDATA;  /»  MULTIBUS  INVERTS  1/ 

EM)  send; 

/I  XMIT  WRITES  AN  ENTIRE  PHRASE  TO  THE  UPH1  ON  THE  DIGITALKER 
BOARD  ■/ 

XMIT!  PROCEDURE  (PHRASE.PTR-  PHRASE .LENGTH); 

DECLARE  PHRASE.PTR  POINTER-  PHRASE.LENGTH  WORD; 

DECLARE  (ITEM  BASED  PHRASE.PTR)  (1)  BYTE; 

i  =  o; 

DO  WHILE  I  PHRASE.LENGTH; 

CALL  SEN!  'ITEH:D); 

i  «  i  ♦  i; 

end; 

end  xmit; 


/i 


IN  THE  FOLLOWING-  ’WORD1  MEANS  THAT  THE  WORD 


IS  SPOKEN. 


iiiiiiiiMiiiiiimiiiiixiiiixmiiiimiimmiiiiiiiiiiiiiiiiii/ 

/x  SAY.AMOUNT  HAS  DIGITALKER  SAY  THE  NUMBER  OF  METERS  THAT  MISSILE 
HISSED  BY.  IT  IS  FOLLOWED  BY  A  SHORT  PAUSE.  «/ 


55  1 

56  2 

57  2 

58  2 

60  3 

61  3 

62  3 

63  3 

61  3 

65  2 


67  3 

68  3 

6?  3 

70  3 

71  3 


SAY.AMOUNT  5  PROCEDURE  (BUFF.PTR)! 

DECLARE  BUFF.PTR  POINTER* 

DECLARE  (ASCII.NUMBER  BASED  BUFF.PTR)  (1)  BYTE* 

IF  ASCII_NUM8ER(0)  <>  20H  /x  MO  THOUSANDS  DIGIT  «/ 

THEN  DO? 

CALL  SEND(OOH)?  /x  PAGE  ZERO  x/ 

CALL  SEND ( ASCII.NUMBER ( 0 )  -  30H) ?  /x  'THOUSANDS  DIGIT*  x/ 

CALL  SEND (02H);  /x  VOLUME  TWO  x/ 

CALL  XMIT ( 8PHRASE.23 t SIZE ( PHRASE.23 ! ) !  /x'THOUSAND*  */ 

end; 

IF  ( ASCII.NUMBER (1)  O  20H)  AND  (ASCII.NUMBEfi(l)  <>  30H) 

/*  NO  HUNDREDS  DIGIT  */ 

THEN  DO! 

CALL  SEND' OOH)!  /x  PAGE  ZERO  «/ 

CALL  SEND ( ASCII.NUMBER ( 1 )  -  30H>;  /x  'HUNDREDS  DIGIT*  x/ 

CALL  SEND(02H);  /x  VOLUME  TWO  */ 

CALL  XMIT (8PHRASE.21* SIZE (PHRASE.21) ) »  /x  'HUNDRED'  x/ 

end; 


73  2 

75  3 

77  3 

78  3 

7?  2 

81  2 

83  3 

81  3 

36  1 

87  1 

88  1 

89  1 

90  3 

92  2 

91  3 

95  3 

96  3 

97  3 

98  3 

99  2 
100  2 


CALL  SEND(OOH);  /x  PAGE  0  »/ 

IF  ( ASCII.NUMBER ( Z  >  =  20H)  /x  NO  TENS  DIGIT  «/ 

THEN  DO; 

IF  ASCII_NUMBER(3)  =  30H  /x  ZERO  HAS  SPECIAL  ADDRESS  x/ 

THEN  CALL  SENDdFH!!  /x  ADDRESS  OF  ZERO  X/ 

ELSE  CALL  SEND < ASCII.NUMBER ( 3 )  -  30H)J  /x  OTHER  ADDRESSES  x/ 

end; 

ELSE  IF  ASCII.NUMBER (2)  =  31H  /x  TENS  DIGIT  IS  ONE  ■/ 

THEN  CALL  SEND'ASCII_NUMBER(3)  -  30H  ♦  OAHK  /x  SEND  ADDRESS  «/ 

ELSE  IF  ASCII.NUMBER (2)  O  30H 

THEN  DO!  /i  TENS  DIGIT  IS  NOT  ZERO  OR  ONE  »/ 

CALL  SEND ( ASCII.NUMBER ( 2 )  -  1EH)J  /x  SEND  TENS  ADDR.  ■/ 

IF  ASCII.NUMBER (3)  (>  30H  /«  UNLESS  ONES  IS  ZERO  i 

THEN  DO; 

CALL  SENDtOZH);  /x  SEND  VOLUME  FOR  TENS  «/ 

CALL  SEND'OOH;;  /x  PAGE  ZERO  ■/ 

CALL  SEND ( ASCII.NUMBER ( 3 )  -  30H)!  /x  ONES  ADDR.  x/ 

end; 

end; 

CALL  SEND(02H);  /x  SEND  VOLUME  FOR  LAST  WORD  x/ 

IF  ASCII.NUMBER (5)  O  30H  /x  UNLESS  NO  TENTHS  x/ 

THEN  DO; 

CALL  XMIT ( 8PHRASE . 1 7  *  SIZE ( PHRASE. 1 7 ) ) ;  /x  SAY  POINT  tt 

CALL  SEND(OOH)!  /x  PAGE  ZERO  1/ 

CALL  SEND' ASCII.NUMBER' 5)  -  30H)!  /«  TENTHS  ADDR,  i 

CALL  SEND(C2H<;  /x  VOLUME  x/ 

END' 

CALL  XMIT  >  (Jf'HRASE.l  6r SIZE  'PHRASE.16) ) ;  /*  SHORT  PAUSE  x/ 

END  SAY. AMOUNT; 


/x  MISS.DISTANCE  HAS  DIGITALKER  SAY  THE  MISS.DISTANCE  AND  METER  OR 
METERS  FOLLOWED  BY  A  LONG  PAUSE  «' 


99 


101  1 
102  2 
103  2 

101  2 
105  2 

107  2 

!08  7 


109  1 

110  2 

111  3 

112  2 


113  2 

1H  3 

115  3 

116  3 

117  3 

116  3 

11?  2 

121  1 

122  2 

123  3 

12^  2 

125  2 

126  2 

128  2 
12<3  2 

130  2 

131  2 

132  2 

133  2 

131  3 

135  2 

136  2 

137  2 


138  1 

139  2 
110  ? 


Ill  1 


c"  -  .  w" 


miss.distance:  procedure  (distance;  ascii.ptrj; 

DECLARE  DISTANCE  PEAL •  Aitii.PTR  POINTER! 

CALL  SAY.hMQUNTI ASCII.PTR) !  /*  SAT  THE  AMOUNT  «/ 

CALL  XMIT (8PHRASE_11*SIZE(PHRASE.11) ) J  /*  SAY  METERS  UNLESS  «' 
IF  FIX110.0  x  DISTANCE)  O  10  /*  DISTANCE  *  1.0  ■/ 

THEN  CALL  XMIT ( gPHRASE.15 »5IZE < PHFASE .15) ) !  /»  THEN  SAY  METER  *• 
CALL  XHIT ( ^PHRASE. 1 8 1  SIZE ( PHRASE. 1 8  > ) i  /■  LONG  PAUSE  »/ 

END  MISS.DISTANCE! 

/i  PROLOG  IS  CALLED  FROM  TOHHN  BEFORE  A  TRIGGER  PULL.  «/ 

PROLOG!  PROCEDURE  PUBLIC ! 

DO  WHILE  NOT  CONTINUE!  /*  WAIT  TILL  SCENARIO  SELECTED  */ 

END! 

CONTINUE  =  0! 

/*  TURN  ON  TARGET  LIGHT  «/ 

DO  CASE  (STARTING.TRACK  AND  03H) ! 

1 

OUTPUT (PORT.C )  =  OFEH!  /*  PORT.C  HAS  INVERTED  OUTPUTS  */ 

OUTPUT (PORT.C)  =  OFDH! 

OUTPUT 'PORT.C)  =  OFBH! 

END! 


IF  DAY.SIGHT  =1  /«  1  *  ’USE  DAY  SIGHT’.  0  =  ’USE  NIGHT  SIGHT’  «, 

THEN  CALL  XHIT ( 8PHRASE.1 » SIZE ( PHRASE. 1 ) > ! 

ELSE  CALL  XMIT ( 8PHRASE.2 » SIZE  1  PHRASE .2 ) ) J 

DO  WHILE  NOT  CONTINUE!  /*  WAIT  TILL  READY  AND  MOTORS  START  */ 

ENO! 

CONTINUE  =  0! 

CALL  XMIT ( 8PHRASE. 3 » SIZE ( PHRASE. 3 ) ) ! 

IF  EAST.HEST  =  1 

THEN  CALL  XMIT  < 0FHRASE. 1 f SIZE ( PHRASE.1 > ) ! 

ELSE  CALL  XMIT  ' 8PHRASE.5 . SIZE ( PHRASE.5 ) ) ! 

CALL  XHIT ( 8PHRASE.6 • SIZE ' PHRASE. 6 ) ? ! 

CALL  TIME  ( 10000.’! 

CALL  XMIT ( 8PHRASE.7 » SIZE ( PHRASE.7 ) ) ! 

CALL  TIME ( 10000'! 

DO  WHILE  DONT.FIRE!  /«  WAIT  TILL  CY512  SAYS  FIRE*/ 

END!  /i  AND  OUTPUT  TO  BIT1  ON  PORT.B  */ 

CALL  XMIT ( 8PHRASE. 1 9 . SIZE ( PHRASE.1 9) ) f  /*  ’FIRE’  *7 

ALREADY.OUT  =  0!  /«  ZERO  A  COACHING  FLAG  */ 

END  PROLOG! 

/i  FIRE  AGAIN  MAKES  DIGITALKER  SAY  FIRE  LOUDER.  CALLED  FROM  TOWMN  IF 
TRAINEE  DOESN'T  FIRE  WITHIN  TWO  SECONDS  AFTER  FIRST  COMMANDED.  * 

FIRE.AGAIN!  PROCEDURE  PUBLIC! 

CALL  XMIT (8PHRASE. 20. SIZE ( PHRASE.ZO ) ) !  /*  FIRE  STUPID  */ 

END  FIRE.AGAIN! 

/i  QUIT  MAKES  DIGITALKER  SAY  CEASE  TRACKING  THEN  ABORT.  CALLED  FROM 
TOWMN  IF  TRAINEE  DOESN'T  FIRE  THE  SECOND  TIME.  «/ 

QUIT!  PROCEDURE  PUBLIC! 


/*  ’ALERT!  TANK’  «/ 

/»  1  =  ’EAST’.  0  =  ’WEST’  «/ 


/»  ’3000  METERS’  */ 
/»  1  SEC  DELAY  «/ 

/*  ’AT  MY  COMMAND’  */ 


SE 


12 

2 

CALL  XNIT  <  0PHRASE.8 . SIZE ( PHRASE.8 ) ) ! 

/i  CEASE  TRACKING  «/ 

13 

2 

CALL  XMIT ( ePHRASE _ 1 8 f  SIZE ( PHRASE. 1 8  > ) ! 

/i  LONG  PAUSE  «/ 

11 

n 

L 

CALL  XNIT ( 0PHRASE.21 . SIZE ( PHRASE.21 ) ) » 

/«  ABORT  */ 

15 

n 

i. 

END  QUIT! 

/«  COACH  CALLED  FROM  TOHFLP.  FLIGHT  PROCEDURE.  VERTICAL  COACHING 
OVERIDES  HORIZONTAL  COACHING.  SINCE  HOPE  CRITICAL.  THIS  IS  TO  AVOID 
CONFUSING  THE  GUNNER  BY  COACHING  IN  BOTH  DIRECTIONS  SIMULTANEOUSLY  »/ 


[16  1  COACH!  PROCEDURE  (GAEH.  GAEV)  PUBLIC! 

[17  2  DECLARE  (GAEH.  GAEV)  REAL! 

lie  2  IF  (ABS(GAEH)  <  GAEH.LINIT )  AND  (ABS(GAEV)  <  GAEV.LINIT) 

AND  (ALREADY. OUT  =  1) 

/i  HAS  OFF  TARGET.  BACK  ON  TARGET  1/ 

THEN  DO! 

150  3  CALL  XNIT ( 8PHRASE.27 . SIZEi PHRASE.27 ) ) !  /«  ‘ON  TARGET*  «/ 

151  3  ALREADY.OUT  =  0! 

152  3  END! 

153  2  IF  ABS(GAEV)  >  GAEV.LINIT 

/«  HIGH  OR  LOW  */ 


THEN  DO! 


155 

3 

IF  GAEV  >  0.  THEN  CALL  XMIT(0PHRASE_26.SIZE<PHRASE_26)>»  /»  'HIGH' 

157 

2 

ELSE  CALL  XMIT ( @PHRASE_25 • SIZE ( FHRASE.25 » ) 5 

/«  *LOH 

158 

3 

ALREADY.OUT  =  1! 

/«  OFF  TARGET  */ 

159 

3 

END! 

/i  RIGHT  OR  LEFT.  BUT  NOT  HIGH  OR  LOH  «/ 

160 

2 

ELSE  IF  ABS(GAEH)  >  GAEH.LINIT 

THEN  DO! 

162 

3 

IF  GAEH  ■  0.  THEN  CALL  XMIT ( 3PHRASE. 1 2 r SIZE ( PHRASE .12))?  /« 

161 

3 

ELSE  CALL  XNIT<0PHRASE_13.SIZE(PHRASE_13)>!  /»  ‘LEFT*  */ 

165 

3 

ALREADY.OUT  =  1! 

/«  OFF  TARGET  */ 

166 

3 

END! 

END  COACH! 

/«  NOTE  THAT  EPILOG  USES  THE  ASCII  BUFFERS  FOR  MISS  DISTANCE  TO 

CAUSE  DIGITALKER  TO  ALSO  SAY  THE  MISS  DISTANCES  */ 

168 

1 

EPILOG!  PROCEDURE  PUBLIC! 

169 

2 

CALL  XNIT ( 0PHRASE.8 . SIZE ( PHRASE.8 ) ) ! 

/i  'CEASE  TRACKING*  I 

170 

2 

CALL  TINE (10000)! 

/»  1  SEC  DELAY  */ 

171 

2 

IF  SPEECH.HIT  =  1 

THEN  CALL  XHIT(0PHRASE.9.SIZE(PHRASE_9))! 

/*  ‘HIT*  : 

173 

2 

IF  SPEECH.NISS  =  1 

THEN  DO! 

175 

3 

CALL  XNIT  ( 0PHRASE.1 0 » SIZE  ( F’HRASE.10 ) ) ! 

/*  'MISS* 

176 

3 

IF  UP  0, 

THEN  DO! 

178 

1 

CALL  HISS.DISTANCE< UP. 8V.MIS.ASCII (0) ) ! 

/i  DISTANCE  i/ 

178 

1 

CALL  XMIT (8PHRASE.il. SIZE ( PHRASE. 1 1 > > ! 

/»  'HIGH* 

180 

1 

END! 

181 

3 

IF  RIGHT  0. 

THEN  DO; 

CALL  NISS.DISTANCE ( RIGHT , 0H.HIS.ASCII <  0 ) ) J  /*  DISTANCE  «/ 

CALL  XNIT ( BPHRASE. 12 » SIZE  ( PHRASE. 1 2 ) )  J  /«  'RIGHT*  «/ 

end; 

IF  LEFT  O  0. 

THEN  DO; 

CALL  HISS_DISTANCE(LEFT flH.MIS.ASCII(O) ) ;  /«  DISTANCE  ■/ 

CALL  XHIT ( 8PHRASE. 1 3 » SIZE ( PHRASE. 13))}  /«  'LEFT*  «/ 

end; 

end; 

/«  NOTE  THAT  XJHS.ASCII  USED  FOR  SPECIAL  CONNENTS  IN 
SPECIAL  MISS  SITUATIONS.  DIGIT ALKER  IS  PREVENTED  FROM 
ATTEMPTING  TO  USE  THE  BUFFER  IN  THESE  SITUATIONS  «/ 

ELSE  IF  (SHORT  <  0.  AND  A6S( SHORT)  >  2.M16)  AND  (NIRE.BROKE  =  0) 

AW  (HILL.IHPACT  =  0)  AW  (GUIDANCE  LOST  =  0) 

THEN  DO; 

CALL  XHIT ( BPHRASE.l 0» SIZE ( PHRASE. 10 ) ) J  /*  'HISS'  «/ 

CALL  HISS.DISTANCE ( SHORT »RX_HIS_ASCII ( 0 ) ) J  /»  DISTANCE  «/ 
CALL  XHIT ( BPHRASE.22 > SIZE ( PHRASE  22)) !  /*  'FROH  TARGET'  «/ 

ew; 

ew  epilog; 


EW  tonspeedl  hodule? 


CROSS-REFERENCE  LISTING 


DEFN  MOfi  SIZE  NANE.  ATTRIBUTES.  AND  REFERENCES 


12 

ABORT •  ♦  •  * 

• 

• 

4 

LITERALLY  33 

ABS . 

» 

• 

4 

BUILTIN  148  153 

160 

192 

6 

0002H 

1 

ALREADY.OUT . 

« 

4 

4 

BYTE  136  148  151 

158 

165 

57 

OOOOH 

4 

ASCII.NUNBER 

4 

* 

• 

BYTE  BASED(BUFF.PTR)  ARRAY < 4 ) 

58 

61 

79  80  81  83  84 

88 

92 

96 

101 

0004H 

4 

ASCII.PTR.  . 

• 

» 

• 

POINTER  PARANETER  AUTONATIC 

102 

103 

12 

AT_«  «  «  •  « 

« 

• 

4 

LITERALLY  19 

55 

0004H 

4 

BUFF.PTR  .  , 

4 

4 

• 

POINTER  PARANETER  AUTONATIC 

56 

57 

75  77  79  80  81 

63 

84 

88 

92 

12 

CEASE i  •  <  » 

« 

• 

• 

LITERALLY  20 

146 

046 1H 

293 

COACH.  ,  .  . 

* 

1 

» 

PROCEDURE  PUBLIC  STACK=001EH 

12 

COMMAND.  .  . 

♦ 

« 

• 

LITERALLY  19 

n 

L. 

A01FH 

1 

CONTINUE  .  . 

• 

• 

• 

BYTE  AT  ABSOLUTE 

110 

112 

122 

124 

12 

CORRECT.  .  . 

• 

« 

• 

LITERALLY  39 

12 

DAY . 

4 

> 

> 

LITERALLY  13 

2 

A007H 

1 

DAY.SIGHT.  . 

• 

« 

» 

BYTE  AT  ABSOLUTE 

119 

101 

FFFCH 

4 

DISTANCE  .  . 

• 

• 

• 

REAL  PARANETER  AUTONATIC 

102 

105 

10 

DONT.FIRE.  . 

« 

4 

• 

LITERALLY  133 

12 

EAST  .... 

• 

• 

• 

LITERALLY  16 

2 

AOOFH 

1 

EAST.MEST.  . 

• 

« 

4 

BYTE  AT  ABSOLUTE 

126 

168 

0586H 

379 

EPILOG  .  .  . 

4 

• 

4 

PROCEDURE  PUBLIC  STACK=0028H 

12 

FIRE  .... 

< 

• 

4 

LITERALLY  31 

138 

041FH 

19 

FIRE.AGAIN  . 

4 

• 

4 

PROCEDURE  PUBLIC  STACK=0012H 

12 

FIRE.STUPID. 

« 

< 

1 

LITERALLY  32 

FIX . 

• 

• 

• 

BUILTIN  105 

12 

FRDN  .... 

• 

« 

4 

LITERALLY  34 

146 

FFFCH 

4 

GAEH  .... 

• 

4 

1 

REAL  PARANETER  AUTONATIC 

147 

148 

160 

11 

gaeh.linit  . 

• 

• 

• 

LITERALLY  148  160 

146 

FFF8H 

4 

GAEV  .... 

• 

» 

• 

REAL  PARANETER  AUTONATIC 

147 

148 

153 

11 

GAEV.LINIT  . 

4 

• 

• 

LITERALLY  148  153 

4 

OOOOH 

1 

GUIDANCE.LOST . 

• 

4 

BYTE  EXTERNAL (0) 

192 

12 

HIGH.,  .  .  . 

< 

1 

4 

LITERALLY  23  38 

4 

OOOOH 

1 

HILL.IHPACT. 

♦ 

• 

4 

BYTE  EXTERNAL ( 1 ) 

192 

12 

HIT . 

• 

« 

4 

LITERALLY  21 

12 

HUNDRED.  .  . 

* 

• 

4 

LITERALLY  36 

3 

A022H 

22 

H_HI5_ ASCII . 

« 

• 

4 

BYTE  ARRAY (22)  AT  ABSOLUTE 

183 

188 

8 

OOOOH 

2 

I . 

• 

• 

4 

HORD  49  50  51 

52 

INPUT •  «  «  « 

1 

« 

4 

BUILTIN  133 

48 

OOOOH 

1 

ITEM  .... 

• 

• 

4 

BYTE  BASED (PHRASE.PTR)  ARRAY ( 1 ) 

51 

8 

0005H 

1 

K . 

1 

• 

4 

BYTE 

5 

OOOOH 

4 

LEFT  .... 

• 

• 

4 

REAL  EXTERNALS) 

186 

188 

12 

LEFT..  .  .  . 

• 

4 

4 

LITERALLY  25 

12 

LONG.PAUSE  . 

« 

• 

• 

LITERALLY  30 

12 

LOW.  •  •  •  • 

* 

• 

« 

LITERALLY  37 

12 

NEDIUN.PAUSE 

• 

• 

4 

LITERALLY  15  16 

17 

12 

METER.  .  .  . 

• 

« 

4 

LITERALLY  18  26 

12 

HISS  .... 

• 

• 

4 

LITERALLY  22 

101 

0286H 

92 

NISS.DISTANCE. 

• 

4 

PROCEDURE  STACK=0022H 

178 

183 

168 

12 

NY . 

* 

I 

4 

LITERALLY  19 

65  68  73  75 


58 

96 


61  65  68 


162 


155 


195 


103 


*- 


12 

NIGHT.  .  . 

1  4 

4 

4 

LITERALLt  11 

12 

ON  ...  . 

4  < 

A 

A 

literally 

10 

0001H 

1 

OUTDATA.  . 

l  4 

A 

4 

BYTE  PARAMETER  AUTOMATIC 

11 

OUTPUT  .  . 

4  * 

4 

4 

BUILTIN  115 

116 

117 

13 

0011H 

15 

PHRASE _1  . 

•  • 

A 

A 

BYTE  ARRAY! 15)  DATA 

120 

22 

0077H 

6 

PHRASE.10. 

4  1 

A 

A 

BYTE  ARRAY! 6)  DATA 

175 

191 

23 

007DH 

6 

PHRASE.ll. 

*  A 

A 

A 

BYTE  ARRAY (6)  DATA 

179 

21 

0083H 

3 

PHRASE.12. 

•  ♦ 

A 

A 

BYTE  ARRAY (3)  DATA 

163 

181 

25 

0086H 

3 

PHRASE.13. 

1  • 

A 

A 

BYTE  ARRAY! 3)  DATA 

161 

189 

26 

oom 

3 

PHRASE.ll. 

t  » 

A 

A 

BYTE  ARRAY<3)  DATA 

101 

27 

008CH 

3 

PHRASE.15. 

4  * 

A 

4 

BYTE  ARRAY! 3)  DATA 

106 

28 

008FH 

3 

PHRASE. 16. 

•  • 

A 

A 

BYTE  ARRAY (3)  DATA 

99 

29 

0092H 

3 

PHRASE.17. 

4  * 

A 

A 

BYTE  ARRAY! 3'  DATA 

91 

30 

0095H 

3 

PHRASE.18. 

•  • 

A 

4 

BYTE  ARRAY! 3)  DATA 

107 

113 

31 

0098H 

3 

PHRASE. 19, 

•  » 

1 

1 

BYTE  ARRAY! 3'  DATA 

135 

11 

0023H 

15 

PHRASE.2  . 

4  « 

4 

4 

BYTE  ARRAY! 15)  DATA 

121 

32 

009BH 

3 

PHRASE.20. 

I  4 

4 

4 

BYTE  ARRAY (3)  DATA 

139 

33 

009EH 

3 

PHRASE.21. 

1  1 

A 

4 

BYTE  ARRAY (3)  DATA 

111 

31 

00A1H 

9 

PHRASE.22. 

*  1 

A 

4 

BYTE  ARRAY (9 i  DATA 

196 

35 

OOAAH 

3 

PHRASE.23. 

4  • 

( 

4 

BYTE  ARRAY! 3)  DATA 

63 

36 

00A0H 

3 

PHRASE.21. 

•  I 

4 

A 

BYTE  ARRAY (3)  DATA 

70 

37 

00B0H 

3 

PHRASE.25. 

4  4 

A 

A 

BYTE  ARRAY (3)  DATA 

157 

38 

00E-3H 

3 

PHRASE.26 . 

•  4 

I 

A 

BYTE  ARRAY! 3)  DATA 

156 

39 

00B6H 

3 

PHRASE.27 . 

4  • 

4 

4 

BYTE  ARRAY (3)  DATA 

150 

15 

0032H 

12 

PHRASE.3  . 

•  I 

A 

A 

BYTE  ARRAY (12)  DATA 

125 

16 

003EH 

6 

PHRASE.1  . 

4  • 

A 

4 

BYTE  ARRAY (6)  DATA 

127 

17 

0011H 

6 

PHRASE.5  . 

•  • 

A 

A 

BYTE  ARRAY (6 '  DATA 

128 

18 

001AH 

18 

PHRASE.6  . 

♦  • 

A 

A 

BYTE  ARRAY! 18)  DATA 

129 

19 

005CH 

15 

PHRASE.7  . 

*  » 

A 

1 

BYTE  ARRAY! 15)  DATA 

131 

20 

006BH 

9 

PHRASE.8  . 

»  • 

A 

A 

BYTE  ARRAY! 9)  DATA 

112 

169 

21 

0071H 

3 

PHRASE .9  . 

4  • 

1 

A 

BYTE  ARRAY! 3)  DATA 

172 

16 

0001H 

2 

PHRASE.LENGTH, 

A 

A 

WORD  PARAMETER  AUTOMATIC 

17 

16 

0006H 

1 

PHRASE.PTR 

•  A 

A 

A 

POINTER  PARAMETER  AUTOMATIC 

12 

POINT.  .  . 

A  A 

A 

A 

LITERALLY  29 

9 

PORT.B  .  . 

A  A 

A 

A 

LITERALLY  133 

9 

PORT.C  .  . 

A  A 

A 

A 

LITERALLY  115 

116 

117 

109 

02E7H 

312 

PROLOG  .  . 

A  A 

A 

A 

PROCEDURE  PUBLIC  STACK=0012H 

11 

D000H 

1 

P.DATA  .  . 

A  A 

A 

A 

BYTE  AT  ABSOLUTE 

11 

111 

0132H 

1? 

QUIT  .  .  . 

A  A 

A 

A 

PROCEDURE  PUBLIC  STACK=0012H 

5 

0000H 

1 

RIGHT.  ,  , 

A  A 

A 

A 

REAL  EXTERNAL (3) 

181 

183 

12 

RIGHT.  .  . 

A  A 

A 

A 

LITERALLY  21 

55 

0135H 

312 

SAY.AMOUNT 

A  A 

A 

A 

PROCEDURE  STACK =0016H 

103 

10 

OOOEH 

11 

SEND  .  .  . 

A  A 

A 

A 

PROCEDURE  STACK=0001H 

51 

76  77  80  83 

86 

87 

88 

5 

OOOOH 

1 

SHORT.  .  , 

A  » 

A 

A 

REAL  EXTERNAL! 6) 

192 

195 

12 

SHORT.PAUSE .  . 

A 

A 

LITERALLY  18 

20 

28 

31 

SHR,  .  .  . 

A  I 

A 

A 

BUILTIN  12 

133 

12 

SIGHT.  .  . 

4  4 

A 

A 

LITERALLY  13 

11 

SIZE  .  .  . 

4  4 

A 

A 

BUILTIN  63 

70 

91 

99 

128  129  13!  135 

13® 

112 

11? 

r:  rs  i?«  isi 

189 

1*1 

196 

7 

0003H 

1 

SPEECH.HIT 

*  » 

4 

BYTE  PUBLIC 

171 

7 

0001H 

1 

speech.hiss.  . 

4 

4 

BYTE  PUBLIC 

173 

12 

SQUAD.  .  . 

1  4 

4 

4 

LITERALLY  15 

12 

SS  i  >  «  i 

4  t 

4 

4 

LITERALLY  18 

27 

2 

AOOCH 

1 

STARTING.  TRACI' 

4 

4 

BYTE  AT  ABSOLUTE 

11? 

11  D002H 


1  STAT.COM  .  .  . 


SUE  AT  ABSOLUTE 


r.  •  “  •  ”  * 

*.  *. 

12 

TANK . 

LITERALLY 

15 

12 

TARGET  . 

LITERALLY 

34 

12 

THOUSAND  . 

LITERALLY 

IB 

35 

12 

THREE . 

LITERALLY 

18 

TINE . 

BUILTIN 

130  1 

132 

170 

1 

OOOEH 

TON.SPEECH.MODULE. 

PROCEDURE  STACK-OOOOH 

12 

TRACKING  . 

LITERALLY 

20 

5 

OOOOH 

4 

UP . 

REAL  EXTERNAL (5) 

176 

178 

12 

USE . 

LITERALLY 

13 

14 

12 

VERY.LQNG.PAUSE .  . 

LITERALLY 

15 

22 

23 

12 

VERY.SHORT.PAUSE  . 

LITERALLY 

13 

14 

IS 

19 

3 

A038H 

22 

VJIIS.  ASCII.  .  .  . 

BYTE  ARRAY (22)  AT  ABSOLUTE 

12 

NEST . 

LITERALLY 

17 

4  OOOOH  1  HIRE.BROKE  ....  BYTE  EXTERNAL (2)  192 


46  010AH 

43 

XMIT . 

.  PROCEDURE  STACK=OOOEH 

63 

70 

94 

99 

104 

106 

107 

120 

121  125  127  128  129  131 

135 

139 

142 

143 

144 

150 

156 

157 

163  164  169  172  175  179 

184 

189 

194 

196 

3  A04EH 

22 

X_MIS_ ASCII.  .  . 

.  BYTE  ARRAY (22)  AT  ABSOLUTE 

195 

NODULE  information: 


CODE  AREA  SIZE  =  0701H 

1793D 

CONSTANT  AREA  SIZE  =  OOOOH 

00 

VARIABLE  AREA  SIZE  =  0006H 

6D 

MAXIMUM  STACK  SIZE  =  0028H 

400 

361  LINES  READ 

0  PROGRAM  ERROR(S) 

END  Of  PL/M-86  COMPILATION 

105 
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IJL  »  1  J»  S'>  w  ">  *.*  v .  j 

i 

Id 

1SIS-II  PL/M-86  V2.1  COrtFILATIOW  OF  MODULE  TOW.UTILITY  V 

k. :  OBJECT  HOOULE  PLACED  IN  :F2:T0NUT.0BJ 

a 

t*!;  COMPILER  INVOKED  BY!  PLM86  : F2 J TOMUT . 006  DEBUG  RON  MEDIUM  XREF  IXREF  WORKFILES(  :F2I  t  JF2t )  DATE<  1/13/83) 

9 

TOW.UTILITY !  00! 

/*  T0NUT.006  HAS  NEH  SOUND  PROCEDURE.  CORRECTED  MISS.COMMENT  PROCEDURE.  1 

"v 

£■* 

AND  DELETION  CF  ALL  REFERENCES  TO  TIMER.  */  A 

s*; 

K> 

1 

DECLARE  PPI.COMTROL  LITERALLY 

‘  OCEH  ‘ ;  vj 

1 

<V 

s’  • 

v-:  3 

1 

*•  < 

/i  HX2AS  CONVERTS  AN  INTEGER  TO  ASCII  CHARACTERS  WITH  THE  [j 

LEAST  SIGNIFICANT  DIGIT  IN  THE  TENTHS  POSITION  */ 

HX2ASJ  PROCEDURE  ( HEX » ASCII. ADR)  PUBLIC. 

4 

2 

DECLARE  ASCII. ADR  POINTER.  HEX  INTEGER.  £ 

* 

2 

ASCII  BASED  ASCII.ADR  (A)  BYTE.  N  INTEGER  .  REMAINDER  INTEGER;  f? 

HEX  *  IABS(HEX);  S 

£>:  * 

2 

DO  N  =  4  TO  0  BY  -  I! 

1 

>•  7 

3 

REMAINDER  =  HEX  MOD  10  ♦  30H5  ,/| 

y-  b 

3 

ASCII(N)  =  LOW < UNSIGN <  REMAINDER ) ) ?  >1 

9 

3 

HEX  =  HEX/ 10 J 

£ 

n  10 

3 

end; 

1 

K  11 

2 

ASCIK5)  =  ASCII(  4)J 

2 

ascik  4)  *  v; 

I-- 

K  13 

2 

n=o; 

<*- 

.*• 

N 

•  1 

m  j; 

2 

DO  WHILE  ( ASCII (N)  =  30H)  AND  (N  <  3)J  /«  REPLACE  LEADING  ZEROES  WITH  BLANKS  */  3 

3 

ASCII(N)  *  20H! 

I*.','  16 

3 

N  *  N  ♦  l> 

\V 

K>  17 

3 

end; 

jv;  is 

2 

END  HX2AS# 

> 

/«  CONVERTS  A  REAL  NUMBER  TO  ASCII  CHARACTERS  WITH  APRQPRIATE  DIRECTION  */  * 

19 

1 

MISS.COMMENT!  PROCEDURE (REAL4ADR.  DEC4ADR.  DIRECTION)  PUBLIC.  S 

r>  20 

2 

DECLARE 'REAL*  ADR.  0EC4ADR)  POINTER.  TEMPI  BASED  REALTOR  REAL; 

STv  21 

2 

DECLARE  PHRASE  BASED  DECiADR  (22)  BYTE.  (N.DIRECTION)  BYTE;  \ 

2 

DECLARE  TEMP2  INTEGER. 

a! 

^  23 

2 

TEMP2  =  FIXU0.0  «  TEMPI)? 

11 

/■  GET  HEX  MISS  DISTANCE  IN  DECIMETERS  «/  ^ 

2i 

2 

IF  TEMP2  <>  0 

/«  DO  NOTHING  IF  TEMP2  =  0.0  »/  > 

s  . 

3 

THEN  DO!  1 

CALL  HX2AS  ( TEMP2 .  DEC*ADR ) ;  si 

27 

3 

PHRASE ( 7 )  =  •  'i 

m  28 

3 

PHRASE (8)  *  'M1 

£ 

r/-  29 

3 

PHRASE  T  9 )  =  'E' 

-» 

>:•:  30 

3 

phrase; 10)  =  't* 

31 

3 

PHRASE(tl)  =  'E' 

32 

3 

PHRASE (12)  *  'R' 

,*< 

33 

3 

PHRASE; 13)  =  '<’ 

,V 

r«  34 

3 

PHRASE (14)  =  'S' 

w 

K7  35 

3 

PHRASE (15)  *  ’)' 

4  1 

« gz 

is 

3 

PHRASE (16>  =  '  ’ 

V 

.s’ 

S' 

L#1 

—  -r 

•  '* 

*.  *«*  "■ 
»*-*•*-  ^ ■‘•JCmJCm. 

106  ^ 

v 

37 

3 

DO  CASE  direction; 

38 

1 

do; 

39 

5 

PHRASE (17)  = 

■R* ; 

10 

5 

PHRASE'.  18)  = 

•i*; 

11 

S 

PHRASE (19)  = 

•c* ; 

12 

3 

PHRASE (20)  = 

■H1; 

13 

5 

PHRASE (21)  = 

•T1; 

11 

5 

end; 

15 

1 

do; 

16 

5 

PHRASE (17)  = 

•l*  ; 

17 

5 

PHRASE! 18)  = 

•E1; 

10 

5 

PHRASEU9)  = 

•F1; 

19 

5 

PHRASE (20)  = 

•t*  ; 

50 

5 

end; 

51 

1 

do; 

52 

5 

PHRASE (17)  = 

•H* ; 

53 

5 

PHRASE (18)  = 

t; 

51 

5 

PHRASE! I5)  = 

■g1; 

55 

5 

PHRASE (20)  = 

•h*; 

56 

5 

end; 

57 

1 

t 

58 

1 

do; 

59 

5 

PHRASE (17)  = 

‘S'; 

60 

5 

PHRASEU8)  = 

■H1; 

61 

5 

PHRASE (19)  = 

■O'; 

62 

5 

PHRASE) 20)  = 

•ft*; 

63 

5 

PHRASE (21)  = 

•t*  ; 

61 

5 

eno; 

65 

1 

end; 

66 

3 

end; 

67 

2 

end  hiss.comhent; 

68 

1 

SOUND!  PROCEDURE  (NHAT.KIND)  pubi 

69 

2 

declare  hhat.kind  byte; 

70 

2 

DECLARE  PORT.A  LITERALLY 

/»  PORT. A  bit:  is  int.  an  active  high  strobe  FOR  DATA  ON  PORT.A  BITS 
0  t  1,  THE  SOUND  SIGNALS  ARE  ENCODED  ON  PORT.A  BITS  0  &  1.  THIS  DATA 
IS  VALID  ONLY  KHILE  BIT  2  IS  HIGH.  NOTE  THAT  PORT.A  OUTPUTS  ARE 
INVERTED  BEFORE  THEY  REACH  THE  CONNECTOR.  BIT  2  IS  HIGH  FOR  100 
MICROSECONDS.  THE  SOUND  SIGNALS  ARE  ENCOOED  AS  FOLLOWS! 

WHAT.KIND  *  0  «>  TRIGGER  PULL  SIGNAL  (A1  =  0.  AO  =  0) 

NHAT.KIMD  >  1  «>  IMPACT  HIT  SIGNAL  (A1  =  0.  AO  =  1) 

HHATJOND  «  2  •>  IMPACT  HISS  SIGNAL  CA1  =  1.  AO  =  0) 


71  2  OUTPUT (PORT.A)  *  01H  OR  (HHAT.KINO  AND  03H)J 

72  2  CALL  TIHE(l); 

73  2  OUTPUT (PORT.A)  *  OOH! 

71  2  END  SOUND! 

73  1  PPI.SET!  PROCEDURE  PUBLIC! 

76  2  OECLARE  PPI.HODE  LITERALLY  '82H';  /*  PORTS  A  4  C  OUTPUT.  B  INPUT.  ■/ 

/*  REF  PAGES  2-10  i  3-15  H 

77  2  OUTPUT! PPI.CONTROL )  *  PPI.HODE !  /«  ALL  PPI  OUTPUTS  GO  LON  »/ 
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CROSS-REFERENCE  LISTING 

OEFN  ADOR  SIZE  NAME*  ATTRIBUTES »  AND  REFERENCES 


4 

OOOOH 

6 

ASCII.  .  .  . 

• 

4 

4 

BYTE  BASEDt ASCII. ADR)  ARRAY (6) 

8 

11 

12 

14 

15 

3 

0006H 

4 

ASCII.AOR,  . 

* 

* 

* 

POINTER  PARAMETER  AUTOMATIC 

4 

8 

11 

12 

14 

15 

19 

0008H 

4 

DECADR  .  .  . 

« 

4 

4 

POINTER  PARAMETER  AUTOMATIC 

20 

21 

26 

27 

28 

29 

30 

31  32  33  34  35  36 

39 

40 

41 

42 

43 

46 

47 

48 

49  52  53  54  55  59 

60 

61 

62 

63 

19 

0006H 

1 

DIRECTION.  . 

• 

« 

» 

BYTE  PARAMETER  AUTOMATIC 

21 

37 

FIX*  •  •  *  * 

< 

* 

4 

BUILTIN  23 

3 

OOOAH 

L. 

HEX . 

« 

* 

» 

INTEGER  PARAMETER  AUTOMATIC 

4 

5 

7 

9 

3 

0004H 

157 

HX2AS.  .  .  . 

« 

4 

* 

PROCEDURE  PUBLIC  STACK=OOOAH 

26 

IABS  •  «  »  » 

1 

* 

• 

BUILTIN  5 

LON . 

t 

4 

4 

BUILTIN  8 

19 

00A1H 

312 

MISS.COMMENT 

» 

» 

* 

PROCEDURE  PUBLIC  STACK=001AH 

4 

OOOOH 

2 

N*  *  «  «  4  I 

4 

* 

« 

INTEGER  6  8  13 

14 

15 

16 

21 

0006H 

1 

N*  »  «  »  »  t 

1 

t 

1 

BYTE 

OUTPUT  .  .  . 

4 

« 

4 

BUILTIN  71  73  77 

21 

OOOOH 

n*) 

L.L. 

PHRASE  .  .  . 

• 

1 

* 

BYTE  BASED (DECADR)  ARRAY (22) 

27 

28 

29 

30 

31 

32 

33 

34  35  36  39  40  41 

42 

43 

46 

47 

48 

49 

52 

53 

54  55  59  60  61  62 

63 

70 

PORT.A  .  .  . 

4 

* 

1 

LITERALLY  71  73 

L 

PPI.CONTROL, 

• 

1 

1 

LITERALLY  77 

76 

PPI.MOOE  .  . 

* 

4 

* 

LITERALLY  77 

75 

OlFDH 

9 

PPI.SET.  .  . 

1 

4 

1 

PROCEDURE  PUBLIC  STACK=0002H 

19 

OOOCH 

4 

REAL ADR.  .  . 

4 

4 

4 

POINTER  PARAMETER  AUTOMATIC 

20 

23 

4 

0002H 

2 

REMAINDER.  . 

4 

4 

4 

INTEGER  7  8 

68 

01D9H 

36 

SOUND.  .  .  . 

4 

* 

4 

PROCEDURE  PUBLIC  STACK=0004M 

20 

OOOOH 

4 

TEMPI.  .  .  . 

• 

* 

4 

REAL  BASED (REAL ADR)  23 

22 

0004H 

2 

TEMPI.  .  .  . 

4 

4 

4 

INTEGER  23  24  26 

TIME  ...  . 

1 

4 

4 

BUILTIN  72 

1 

0004H 

TOM.UTILITY, 

4 

* 

4 

PROCEDURE  STACK=OOOOH 

UNSIGN  .  .  . 

4 

4 

4 

BUILTIN  8 

68 

0006H 

1 

HHAT.KIND,  . 

* 

4 

« 

BYTE  PARAMETER  AUTOMATIC 

69 

71 

HOOULE  INFORMATION ! 


COOE  AREA  SIZE 

=  0206H 

518D 

CONSTANT  AREA  SIZE 

=  OOOOH 

00 

WARIABLF  AREA  SIZE 

=  0007H 

7D 

MAXIMUM  STACK  SIZE 

*  OOtAH 

26D 

111  LINES  READ 

0  PROGRAM  ERROR(S) 

END  OF  PL/M-86  COMPILATION 


ISIS-II  NCS-86  MACRO  ASSEMBLER  V2.1  ASSEMBLY  Of  MODULE  RDRSB 
OBJECT  MODULE  PLACED  IN  T  F2  .*  TOMXF .  OB J 

ASSEMBLER  INVOKED  BY!  ASM86  !F2!T0HXF.SRC  DEBUG  XREF  DATE( 1/17/83) 

LOC  OBJ  LINE  SOURCE 

1  {THIS  PROGRAM,  STARTED  SEPT  5,  1979.  READS  DATA  FROM  THE  RETICON  RSB6020 

2  !  INTERFACE  BOARD  INTO  THE  86/12  MEMORY!  REFERENCES  ARE! 

3  5  1.  RS86020  OPERATING  INSTRUCTIONS t  MARCH  9.  1979,  EG4G  RETICON 

1  5  SUNNYVALE,  CALIFORNIA, 

5  i  2,  MCS-86  ASSEMBLE  LANGUAGE  REFERENCE  MANUAL,  *9800610 A. 

6  !  INTEL  CORP,  SANTA  CLARA,  CALIFORNIA 

7 

8  JIT  IS  BEING  CLEANED  UP  A  BIT  FEB  20,  1981 

9 


10 

{EQUATES  AT  TOP  OF  PROGRAM  PER  P,  8-1,  REF  2 

11 

12 

NAME 

RDRSB 

13 

DGROUP  GROUP 

SBC.REGS,  RSB.REGS 

1# 

15 

16 

CGROUP  GROUP 

CODE 

0001 

INMSK  EQU 

01  {SET  UP  FOR  CAMERA  1  ONLY.  SEE  P,  19,  REF  l 

006# 

17 

LINES  EQU 

100 

0010 

18 

ENDFR  EQU 

10H  JMASK  FOR  THE  2-T0-THE-1TH  BIT,  P.  15,  REF  1 

19 

20 

ASSUME  SS! DGROUP,  CS! CGROUP, 

DSSDGROUP,  ES! DGROUP 

21 

— 

22 

SBC.REGS  SEGMENT  COMMON 

{NOTE  THAT  ’COMMON*  FILES  MUST  BE 

23 

{COMMON  IN  ALL  NODULES,  I.E.  CAN'T  BE 

0000  (800 

2# 

SBCREG  DB 

800  DUP  (?) 

{'AT*  IN  ONE  AND  ’COMMON’  IN  ANOTHER. 

?? 

) 

25 

{THEY  00  NOT,  HOHEMEK,  HAVE  TO  BE  POINTED 

26 

{TO  BY  THE  SAME  SEGMENT  REGISTER  IN  BOTH 

27 

{MODULES,  NOR  DO  THEY  HAVE  TO 

28 

{ OF  THE  SAME  LENGTH, 

0320  (6 

29 

PARTLY.OFF 

DB  6  DUP  (?)  J  INITIALEZE  =  0 

V 

) 

0326  (6 

30 

LOCATIONS 

DB  6  DUP  (?)  J  INITIALIZE  =  1 

?? 

) 

— 

31 

SBC.REGS  ENDS 

32 

— 

33 

RSB.REGS  SEGMENT  AT  OEOOH 

{BASE  ADDRESS  OF  RETICON  BOARD  IS  OEOOOH 

0000  (512 

3# 

RSBDTA  DB 

200H  DUP  (?) 

?? 

) 

0200  (1 

35 

STATl  06 

1  DUP  (?) 

{THIS  FORM  IS  NECESSARY  TO  AVOID  LOADING  ERRORS 

?? 

) 

0201  (11 

36 

STAT2  OB 

08H  DUP  (?) 

?? 

) 

020C  (2 


37  RESET  DB 


2  DUP(’) 


LOC  OBJ 


OOOO  (10 


0000  A20C02 
0003  C6060E0201 
0008  A20F02 


OOOC  A20F02 
OOOF  A00002 
0012  OOEO 
0011  7303 
0016  A20F02 
0019  A00002 
001C  DOEO 
001E  7206 
0020  DOEO 
0022  72F5 
0021  EBFO 
0026  A00300 
0029  2110 
0028  71DF 


CNFG15  DB 

1  DUP  (’) 

PROCOM  OB 

1  DUP  (?) 

RSB.REGS  ENDS 

STACK  SEGMENT  STACK  'STACK' 

DH 

10  DUP  (?) 

STKTOP  LABEL 

MORD 

STACK  ENDS 

COOE  SEGMENT  PUBLIC  'CODE' 

PUBLIC 

nan 

INIT1  PROC 

NEAR 

I INITIALIZATION  OF  RSB  6020  INTERFACE  BOARD 

RTINIT!  MOV 

RESET » AL 

iRESET  IS  A  'DUMMY'  REGISTER-  ALL  IT  NEEDS 

MOV 

CNFCISfINMSK 

SIS  THE  'MHTC/'  PULSE  FROM  PI  120 

MOV 

PROCOM fAL 

; PROCOM  IS  ALSO  A  'DUMMY'  REGISTER. 

RET 

INIT1  ENDP 

PUBLIC 

RD.RAST 

RD.RAST  PROC 

NEAR 

last:  MOV 

PROCOM fAL 

SHILL  HAIT  FOR  LAST  RASTER  LINE 

HTLPO:  MOV 

AL.STAT1 

SFROM  HERE  TO  CHECK  IS  ST'D  NUCMCY 

SHL 

ALfl 

JNB 

HTLF‘3 

PSPRO!  MOV 

PROCOM rAL 

HTLF'3!  MOV 

ALtSTATl 

SHL 

ALfl 

JB 

CHECK 

SHL 

ALfl 

JB 

HTLP3 

JMP 

PSPRO 

check:  mov 

ALfR5BDTA[3] 

ALfENDFR 

LAST 


f HAVING  FOUND  THE  LAST  LINE  OF  THE  FRAME.  HE  HILL  TRANSFER  THE  RETICON 
IDATAt  LINE-BY-LINE  THE  THE  INTEL  86/12  BOARD.  EACH  LINE  TRANSFERRED  STARTS 
SMITH  A  *NEH  COMMAND  CYCLE'  AS  PER  PAGE  10  OF  REFERENCE  l.A 


002D  B361 
002F  BFOOOO 

0032  A20F02 
0035  A00002 
0038  DOEO 
003A  7303 


MOV 

BLfLINES 

SHILL  DECREMENT  FROM  100  TO  ZERO 

MOV 

DIfOFFSET  DGROUP I SBCREG 

nucmcy:  mov 

PROCOM rAL 

» AGAIN f 

PROCOM  IS  A  DUMMY 

HTLP1 ?  MOV 

ALfSTATl 

XREF  SYMBOL  TABLE  LISTING 


IIAMT 

iwnt 

TYPE 

VALUE 

ATTRIBUTES r  XREFS 

??SEG  .  .  . 

SEGMENT 

SEE«OOOOH  PARA  PUBLIC 

CGROUP.  .  . 

GROUP 

COOE  Ht  20 

CHECK  .  .  . 

L  NEAR 

0026H 

CODE  67  71* 

CNFG15.  .  . 

V  BYTE 

020EH 

RSB.REGS  38*  53 

CODE.  .  .  . 

SEGMENT 

SIZE=0060H  PARA  PUBLIC  'CODE' 

OGROUF.  .  . 

GROUP 

SBC.REGS  RSB.REGS  13*  20  20 

ENDFR  .  .  . 

NUMBER 

OOIOH 

18*  72 

INIT1  .  .  . 

L  NEAR 

OOOOH 

COOE  PUBLIC  50  51*  56 

INMSK  .  ,  . 

NUMBER 

OOOIH 

16*  53 

LAST.  .  .  . 

L  NEAR 

OOOCH 

COOE  60*  73 

LINES  .  .  . 

NUMBER 

0064H 

17*  79 

LOCATIONS  . 

V  BYTE 

0326H 

SBC.REGS  30* 

NUCMCY .  .  . 

L  NEAR 

0032H 

CODE  82*  10* 

OTLP.  .  .  . 

L  NEAR 

004CH 

CODE  89  96* 

PARTLY.OFF. 

V  BYTE 

0320H 

SBC.REGS  29* 

PROCOM.  .  . 

V  BYTE 

OZOFH 

RSB.REGS  39*  5*  60  64  82  86 

PSPR.  .  .  . 

L  NEAR 

003CH 

CODE  86*  92 

PSPRO  .  .  . 

L  NEAR 

0016H 

CODE  64*  70 

RO.RAST  .  . 

L  NEAR 

OOOCH 

CODE  PUBLIC  58  59*  108 

RESET  .  .  . 

V  BYTE 

020CH 

RSB.REGS  37*  52 

RSB.REGS.  . 

SEGMENT 

SIZE=0210H  PARA  ABS  13*  33 

RSBDTA.  .  . 

V  BYTE 

OOOOH 

RSB.REGS  34*  71  96  101  102 

RTINIT .  .  . 

L  NEAR 

OOOOH 

CODE  52* 

SBC.REGS,  . 

SEGMENT 

SIZE=032CH  PARA  COMMON  13* 

SBCREG.  .  . 

V  BYTE 

OOOOH 

SBC.REGS  24*  80  102 

STACK  .  .  . 

SEGMENT 

SIZE=0014H  PARA  STACK  'STACK' 

STAT1  .  .  . 

V  BYTE 

0200H 

RSB.REGS  35*  61  65  83  87 

STAT2  .  .  . 

V  BYTE 

0201H 

RSB.REGS  36* 

STKTOP.  .  . 

V  WORD 

00 14H 

STACK  44* 

HTLP.  .  .  . 

L  NEAR 

003FH 

CODE  85  87*  91 

HTLPO  .  .  . 

L  NEAR 

OOOFH 

CODE  61* 

WTLP1  .  .  . 

L  NEAR 

0035H 

CODE  83* 

WTLP3  .  .  . 

L  NEAR 

0019H 

COOE  63  65*  69 

14*  48  110 


22  31 


ASSEMBLY  COMPLETE*  NO  ERRORS  FOUND 


ISIS-II  MCS-86  MACRO  ASSEMBLER  VZ.l  ASSEMBLY  Of  MODULE  IR.CENTER 
OBJECT  MODULE  PLACED  IN  :F2!TOHIR.QBJ 

ASSEMBLER  INVOKED  BY!  ASM86  JF2J T0HIR.003  DEBUG  XREF  DATE  (01/11/83) 

LOC  OBJ  LINE  SOURCE 

1  NAME  IR  CENTER 


EXTRN  START.UPI  FAR 

;THIS  IS  a  DRIVER  PROGRAM  FOR  THE  GUNNER  AIMING  ERROR  MATRIX  CAMERA.  RETICON 
»RSB  6020  USING  THE  86/12A  BOARD,  COMMENTS  ARE  UPDATED  9/23/81 . 

DGROUP  GROUP  STACK ,  SBC.REGS.  XFER.SEG 

CGROUP  GROUP  CODE 

ASSUME  SS! DGROUP*  CS! CGROUP »  DS! DGROUP »  ES: DGROUP 


0000  (61 


STACK  SEGMENT  STACK  'STACK' 
DW  61  DUP(?) 


TOP.STK  LABEL  MORO 
STACK  ENDS 


THIS  PROGRAM  HILL  RESIDE  ON  THE  SBC  *DFS\  IT  HILL  HRITE  Y,  Z( CENTER) 
DATA  TO  THE  SBC  'PIP*  VIA  THE  MULTIBUS.  THE  ‘PIP*  HAS  BEEN  'JUMPERED' 

SO  AS  TO  ALLOH  THE  MULTIBUS  TO  ACCESS  8K  OF  ITS  RAM  STARTING  AT  LOCATION 
AOOOH.  THE  'OFS*  JUMPERS  ALLOH  MULUBUS  ACCESS  TO  BK  OF  RAM  STARTING 
AT  8000H.  THE  ON-BOARD  LOCATION  OF  THESE  AVAILABLE  8K-S  START  AT  6000H 
ON  BOTH  BOARDS.  THE  BOARDS  (REF  FIG  2-1  86/12)  ARE  JUMPERED  AS  FOLLOWS: 


SBC  DFS  JUMPERS  MULTIBUS  ACCESS 

127-128  ->  X  =  0 
SI  6-11  CLOSED 
SI  5-12  *  *»>  8K 

SI  1-16  ' 

SI  2-15  OPEN 

SI  3-11  CLOSED 

SI  1-13  ’  **>  8000H 


SBC  PIP  JUMPERS  MULTIBUS  ACCESS 

127-128  ==>  X  =  0 
SI  6-11  CLOSED 
SI  5-12  '  ==>  8K 

SI  1-16  ' 

SI  2-15  OPEN 
SI  3-11  CLOSED 
31  1-13  OPEN  ==.  AOOOH 


XFER.SEG 


SEGMENT  AT  OAOOH 


!0N  SBC  'PIP'  AS  NOTED  ABOVE 
JHILL  PASS  DATA  FOR  YCNTR.2CNTR, 


START.BIT 


DB  1  DUP(?) 


PUBLIC  B.YfB.ZfDATA.RDYl 
DB  1  DUP(?) 


DB  1  DUPP) 


vv 


•  . 

LOC  OBJ 

LINE 

SOURCE 

0003  (1 
?•} 

43 

DATA.RDY1 

DB 

) 

0004  <1 

?? 

44 

BAD.MISS 

DB 

) 

0005  <1 

?? 

45 

OFFSET.Y 

DB 

) 

0006  (1 
?? 

46 

OFFSET.Z 

DB 

) 

0000  (800 

V 

47 

48 

49 

50 

XFER.SEG 

SBC.REGS 
SBCREG  DB 

ENDS 

SEGMENT  1 
BOO  DUP( 

) 

0320  (1 

?? 

51 

MISS  DB 

IN  RT86XF 

1  DUP(?) 

) 

0321  (1 
?? 

52 

53 

RIGHT 

DB 

1  DUP(?) 

) 

0322  (1 
r) 

) 

54 

LEFT 

DB 

1  DUP ( ? ) 

0323  (1 

V 

55 

UP 

DB 

1  DUP(?) 

) 

0324  (1 
?? 

56 

DOWN 

DB 

1  DUP(?) 

) 

0325  (1 
?? 

57 

OB 

1  OUP<?) 

) 

0326  (1 
’? 

58 

YCNTR 

DB 

1  DUP(?) 

) 

0327  (1 
?? 

59 

ZCNTR 

DB 

1  DUP(?) 

) 

0328  (1 

V 

60 

YMAX 

DB 

1  OUP(?) 

) 

0329  (1 
?? 

61 

YMIN 

DB 

1  DUP(?) 

y 

032A  (1 
?? 

62 

ZMAX 

OB 

1  DUPC?) 

) 

032B  (1 

V) 

63 

ZMIN 

DB 

1  DUP(?) 

1  DUP(?) 


1  DUP<?) 


1  DUP(?) 


1  DUP(?> 


;the  FOLLOWING  6  BYTES  are  named  'partlyoff* 


i DUMMY  BYTE  TO  MANE  3  WORDS  OF  'PARTLY.OFF'  IN  RT86XF 

5  THE  FOIL OWING  6  BYTES  ARE  IN  'LOCATIONS'  IN  RT86XF 


*-  *  '  V  '  ' 


loc  obj 


0005  8ED8 
0007  8EC0 
0009  E80000 
OOOC  AOOOOO 


OOOF  3C01 
0011  75F9 


001P  8E08 
001D  8EC0 
001F  E80000 


GAEY 

DM 

1  DUP(?) 

GAEZ 

DM 

1  DUF'(?) 

SAVGAEY  DM 

1  DUP ( ? ) 

SAVGAEZ  DM 

1  DOP(?) 

PUBLIC 

GAEY » GAEZ 

SBC.REGS 

ENDS 

EXTRN 

rd.rast:  near 

SIZ 

EQU 

64H 

CODE 

SEGMENT  PUBLIC  'CODE' 

PUBLIC 

SETRET 

SETRET 

PROC 

FAR 

EXTRN 

INITi:  NEAR 

PUSH 

BP 

PUSH 

DS 

HOV 

AXtDGROUP 

MOV 

DStAX 

HOV 

EStAX 

CALL 

INITI 

haito: 

HOV 

ALfSTART.BIT 

(THIS  MAn  LOOP  HOLDS  UP  MATRIX  CAMERA  DATA  UNTIL 
f  THE  RETRO-GRAPHICS  BOARD  IS  SET  UP  AND  THE 
i  HATROX  BOARD  IS  READY  AND  WAITING . 

CHP 

ALrl 

JNE 

MAITO 

POP 

DS 

POP 

BP 

RET 

SETRET 

ENDP 

PUBLIC 

YZCNTR 

YZCNTR 

PROC 

FAR 

PUSH 

BP 

PUSH 

DS 

HOV 

AXtDGROUP 

HOV 

DStAX 

HOV 

EStAX 

CALL 

RD.RAST 

5  HE  NOM  LOOK  FOR  THOSE  TRANSITIONS  MHICH  CAN  BE  ASSOCIATED  KITH  A  SINGLE 
(BRIGHT  SPOT  ON  THE  RETICON  CAMERA  100X100  FIELD  OF  VIEW.  THE  SPOT  SOURCE 

FIS  LOCATED  AT  A  FIXED  POSITION  RELATIVE  TO  THE  CENTER  OF  THE  TARGET. 

116 

V  V  V 

r 


7~ 

'  *''■  ■ " 

-_v  - 

LOC  08J 

LINE 

SOURCE 

. 

110 

TTHE  reticon  camera  is  mounted  on  the  center  line  of  the  simulated  weapon 

*1 

111 

ISO  THAT  THE  OFFSET  OF  THE  SPOT  FROM  THE  CENTER  OF  THE  100X100  FIELD  OF  VIEW. 

112 

.WHEN  CORRECTED  BY  AUTOBORESIGHT 

.  WILL  MEASURE  THE  LEAD  AND  ELEVATION 

' 

113 

JOF  THE  WEAPON  AT  TRIGGER-PULL  TINE.  A  SAMPLE  RETICON  DATA  LINE  CONTAINING  A 

■4 

.  j 

111 

1  lc. 

1 SINGLE  BRIGHT  SPOT  IS! 

A 

—J 

It 

11  J 

116 

03  03  1C  60  IE  EO  61  60 

u 

117 

118 

THIS  INDICATES  THREE  TRANSITIONS  IN  THE  LINE  BUT  ONLY  THE  FIRST  TWO  ARE 

119 

SIGNIFICANT.  AT  1CH  THERE  IS  A  DARK-TO-LIGHT  TRANSITION.  AS  INDICATED  BY  THE 

> 

120 

HIGHEST  ORDER  BIT  (HOB)  =  0  IN  DATA  BYTE  *3  (60).  THE  FOLLOWING  TRANSITION 

d 

121 

IS  AT  1EH  AND  IS  A  LIGHT-TO-DAKK.  AS  INDICATED  BY  H0B=1  IN  THE  FOLLOWING 

[  j 

122 

BYTE  *5  (EO). 

EVERY  LINE  HAS  A  FORCED  TRANSITION  AT  THE  END-OF-LINE. 

123 

♦LOCATION  61H=100D.  THE  PROGRAM  STARTS  FROM  LINE  #0  LOOKING  FOR  03  AS  THE 

121 

J INITIAL  DATA  BYTE.  IF  03  IS  NOT  FOUND.  THE  NEXT  LINE  IS  EXAMINED.  THIS  IS 

•j 

125 

.CONTINUED  UNTIL  100  LINES  HAVE  BEEN  EXAMINED  FOR  THE  PROPER  NUMBER  OF 

"J 

126 

1 

TRANSITIONS. 

127 

128 

RESISTER  USAGE  IN  ‘CENTER’ 

129 

(AL)  = 

NUMBER  OF  TRANSITIONS  IN  DATA  LINE 

.w' 

130 

(AH)  = 

BYTES  TO  ADD  TO  DATA  LINE  POINTER 

131 

(BX)  = 

DATA  LINE  POINTER.  POINTS  TO  START  OF  DATA  LINE  IN  'SBCREG' 

>, 

132 

(CL)  = 

LINE  NUMBER 

133 

(CH)  = 

61H  =  100  ==>  THE  LAST  DATA  LINE 

9 

131 

,  « 

002:  B90165 

135 

CENTER!  MOV 

CX.6501H 

# (CH)=65H»  1  *  LAST  LINE.  (CL)=l!->  FIRST  LINE 

.  • 

0025  BBFEFF 

136 

MOV 

BX.-2 

.INITIAL  VALUE  OF  DATA  LINE  POINTER 

\ 

0028  B102 

137 

MOV 

AH. 2 

! INITIAL  DATA  LINE  POINTER  INCREMENT 

002A  C606290361 

R 

138 

MOV 

YMIN.SIZ 

5  SET  INITIAL  VALUE  AT  61H 

002F  C606280361 

R 

139 

MOV 

ZMIN.SIZ 

J DITTO  FOR  ZMIN 

I 

0031  C6062B0301 

R 

110 

MOV 

YMAX.l 

0039  C6062A0301 

R 

111 

14? 

MOV 

ZMAX.l 

003E  3AE9 

113 

DUMP!  CMP 

CH.CL 

JHAVE  WE  FINISHED  WITH  LAST  LINE’ 

!;■ 

0010  7503 

111 

JNE 

OVER 

TWEED  ‘OVER’  BECAUSE  CONDITIONAL  JUMPS  MUST  BE 

r-i 

115 

.‘LESS  THAN  +127  BYTES  AWAY 

r 

0012  E98500 

116 

JMP 

DONE 

j 

0015  02DC 

117 

OVER!  ADD 

BL.AH 

! UPDATE  DATA  LINE  POINTER.  NOW  BECAUSE  HE  CANNOT 

:J 

0017  80D700 

ns 

ADC 

BH.D 

TADD  A  SINGLE  BYTE  TO  BX.  WE  DO  IT  IN  TWO  STEPS 

119 

.USING  THE  CARRY  FLAG,  'CY'.  N.B.  <BX)=0  ON 

150 

iTHE  FIRST  PASS  THROUGH  ‘DUMP.’ 

151 

k 

001A  8A870000 

R 

152 

MOV 

AL. SBCREG CBX3 

.FIRST  DATA  BYTE  «=>  TRANSITIONS  IN  DATA  LINE 

m 

153 

001E  8AE0 

151 

MOV 

AH.AL 

TWILL  FORM  DATA  LINE  POINTER  INCREMENT  IN  AH 

0050  FECI 

155 

INC 

AH 

0052  D0E1 

156 

SHL 

AH.  1 

T ( AH)=2( AL+1 ) »  THE  DATA  LINE  POINTER  INCREMENT 

157 

0051  8A870200 

R 

158 

MOV 

AL. SBCREG CBX+23 

0058  3C61 

159 

CMP 

AL.SIZ 

A 

005A  7105 

160 

JE 

SKIP 

IIF  NO  SPOT.  THEN  GO  TO  NEXT  DATA  LINE 

'  J 

005C  E80A00 

161 

CALL 

GOODLN 

TWILL  UPDATE  SPOT  INFORMATION 

005F  EB00 

162 

JMP 

DUMP 

;go  to  next  data  line 

V 

U 

163 

0061  3ACD 

161 

SKIP!  CMP 

CL.CH 

♦THE  LAST  LINE’ 

ry.~ 

to 


117 


y.v./ 


■   1. 1 . ■ 


LOC  OBJ 

LINE 

SOURCE 

0063  7465 

165 

JZ 

DONE 

RYES!  SO  WE  JUMP  TO  THE  FINAL  CLEAN-UP 

0065  FECI 

166 

INC 

CL 

{NO!  SO  HE  RETURN  TO  ‘OUW"  AM) 

0067  EBD5 

167 

JMP 

DUMP 

{EXAMINE  THE  NEXT  LINE 

168 

0069 

169 

G000LN 

PROC 

NEAR 

0069  80BF000002 

R 

170 

CMP 

SBCREGCBX3.2 

{ONLY  TWO  TRANSITIONS’ 

006E  7419 

171 

JE 

TWOX 

5IF  SO,  SPOT  IS  ON  RIGHT  EDGE 

0070  3A062903 

R 

172 

CMP 

ALiYMIN 

{IF  NOT,  GET  NORMAL  CENTER.  RECALL  THAT 

173 

JAL  CONTAINS  SBCREGCBX+23 

0074  7703 

174 

JA 

Nl 

{JUMP'  IF  (AL)  IS  ABOVE  YMIN,  IE.  CY  FLAG  =  0 

175 

176 

; RECALL  THAT  A  CNF  OPERATION  SUBTRACTS  THE  SOURCE  OR  2ND  OPERAND  FROM  THE 

177 

(DESTINATION  OR  1ST  OPERAND.  IT  DOES  THIS  BY  ADDING  THE  TWOS  COMPLEMENT  OF  THE 

178 

1 SOURCE  OPERAND  TO  THE  DESTINATION  OPERAND  AND  A  CARRY-OUT  FROM  THE  HIGH  ORDER 

179 

!BIT  CAUSES  THE  CY  FLAG  TO  SET  TO  0.  BECAUSE  OF  THE  SUBTRACTION  OPERATION. 

180 

»AT  LEAST  THIS  IS  WHAT  THE  8080  DOES,  ANO  THIS  FLAG  IS  THE  SAME.  IN  THE  8086 

181 

{THEY  SAY  THAT  AFTER  A  SUBTRACT  OPERATION  •CY*  IS  SET  UPON  A  CARRY  INTO'') 

182 

;the  hob  of  the  result' 

183 

0076  A22903 

R 

184 

MOV 

YMIN»AL 

{IF  NO  JUMP  THEN  UPDATE  VALUE  OF  YMIN 

0079  8A870400 

R 

185 

ni: 

MOV 

ALrSBCREGEBX+4] 

{RIGHT  EDGE  OF  SPOT 

007D  3A062803 

R 

186 

CMP 

ALtYMAX 

0081  7230 

187 

JB 

N4 

{JUMP  IF  (AL'  IS  BELOW  YMAX,  OR  CY  =  1 

0083  A22803 

R 

186 

MOV 

YMAX,AL 

RIF  NO  JUMP  THEN  UPDATE  YMA* 

0086  EB2B90 

189 

JMP 

N4 

{JUMP  AROUND  ’TWOX’ 

0089  8A870200 

R 

190 

TWOXJ 

MOV 

AL»SBCREGCBX+2] 

008D  806F030080 

R 

191 

CMP 

S6CREG[BX+3],B0H 

0092  7211 

192 

JB 

REDGE 

{HOB  CLEAR  *«>  DARK  TO  LIGHT  TRANSITION,  R  EDGE 

0094  C606290301 

R 

193 

MOV 

YNINr  1 

{HOB  SET  ==;  LIGHT  TO  DARK  TRANSITION,  L  EDGE 

0099  3A062803 

R 

194 

CMP 

AL,  YMAX 

009D  7214 

195 

JB 

N4 

009F  A22803 

R 

196 

MOV 

YMAX,  AL 

OOA2  EBOF90 

197 

JMP 

N4 

00A5  C606280364 

R 

198 

redge: 

MOV 

YMAX , 64H 

{WILL  BE  ON  RIGHT  EDGE 

00AA  3A062903 

R 

199 

CMP 

ALiYMIN 

00AE  7703 

200 

JA 

N4 

0080  A22903 

R 

201 

MOV 

YMIN,AL 

0063  3A0E2A03 

R 

202 

N4: 

CMP 

CLfZMAX 

{AT  THIS  POINT  Z  IS  MEASURED  DOWNWARD 

00B7  7204 

203 

JB 

N3 

{AND  WE  MUST  COMPLEMENT  Z  AT  END 

0099  880E2A03 

R 

204 

MOV 

ZMAX»CL 

{UPDATE  ZMAX 

0090  3A0E2B03 

R 

205 

N3! 

CMP 

CL,ZMIN 

00C1  7704 

206 

JA 

N9 

00C3  880E2903 

R 

207 

MOV 

ZMIN,CL 

{UPDATE  ZMIN 

00C7  FECI 

208 

N9: 

INC 

CL 

00C9  C3 

209 

RET 

210 

GOODLN 

ENDF 

211 

OOCA  C 606200300 

R 

212 

done: 

MOV 

MISS,0 

OOCF  B03E290364 

R 

213 

CMP 

ZNIN,64H 

0004  7500 

214 

JNE 

N5 

0006  C606200301 

R 

215 

MOV 

MISS , 1 

!ZMIN  =  64H  ==>  NO  SPOT,  SO  SHOT  HAS  A  MISS' 

0009  C606040001 

R 

216 

MOV 

BAD.MISS,! 

5WE  ARE  ’REALLY  FINISHED’ 

00E0  E 98300 

217 

JMP 

READ 

00E3  803E2B0301 

R 

218 

N5! 

CMP 

ZHIN,1 

OOE8  7505 

219 

JNE 

N6 

'■.^v-'.v.v'S'S'Nvv  .*■ 


IOC  OBJ 


OOEA  C 606230301 
OOEF  803E2A0369 
00F9  7505 
00F6  C606290301 
OOfB  803E290301 
0100  7505 
0102  C606220301 
0107  803E280361 
010C  7505 
010E  C6062 10301 

0113  B065 
0115  2A062A03 
0119  8165 
01 IB  2A262B03 
01 IF  A22B03 
0122  88262A03 
0126  A02803 
0129  02062903 
012D  8A1E0500 
0131  02C3 
0133  A22603 
0136  A20100 
0139  8961 
0138  2AE0 
01 3D  8AC1 


OHO  A32C03 
0H3  A33003 
0H6  A02A03 
0M9  02062803 
OHD  8A1E0600 
0151  02C3 
0153  A22703 
0156  A20200 
0159  6969 
0158  2AE0 
015D  BAC1 


0160  A32E03 
0163  A33203 
0166  803E200301 
0168  7518 
016D  A13003 
0170  A32C03 
0173  056900 
0176  A20100 
0179  A13203 
017C  A32E03 
017F  056100 
0182  A20200 
0185  8001 
0187  A20300 


MOV 

UPfl 

►SPOT  INCLUOED  FIRST  LINE  =*>  SHOT  HAS  HIGH! 

M6 : 

CHF 

ZNAXt69H 

JME 

N7 

NOV 

DOMNfl 

»SPOT  INCLUOED  LAST  LINE  =•>  SHOT  HAS  LOM 

N7: 

CMP 

YMINrl 

Jtt 

N8 

MOV 

LEFT , 1 

yo» 
ffO  * 

CMP 

YNAXr61H 

JME 

FINI 

MOV 

RIGHT  f 1 

fini: 

MOV 

AL,65H 

SUB 

AlfZMAX 

MOV 

AH » 65H 

SUB 

AH.ZMIN 

MOV 

ZHIN,AL 

MOV 

ZMAX»AH 

MOV 

ALtYHAX 

ADD 

AL  f  YMIN 

MOV 

BL, OFFSET. Y 

J HORIZONTAL  BORESIGHT  OFFSET 

ADD 

AL,  BL 

MOV 

YCNTR,AL 

JYCNTR  IN  HALF-PIXELS  FROM  LEFT  SIDE  OF  SCREEN 

MOV 

B_Y,AL 

MOV 

AH, 100 

SUB 

AHrAL 

MOV 

AL'AH 

CBM 

MOV 

GAEYrAX 

MOV 

SAVGAEY,AX 

MOV 

ALiZNAX 

AOO 

ALrZMIN 

NOV 

BLfOFFSET.Z 

5  VERTICAL  BORESIGHT  OFFSET 

AOO 

AL,BL 

MOV 

ZCMTRrAL 

JZCNTR  IN  HALF-PIXELS  FROM  BOTTOM  OF  SCREEN 

MOV 

B.Z,Al 

MOV 

AH, 100 

SUB 

AH,AL 

NOV 

AL,AH 

CBM 

NOV 

GAEZiAX 

MOV 

SAVGAEZ, AX 

read: 

CMP 

MISS, 1 

JNE 

NEXT1 

MOV 

AX , SAVGAEY 

MOV 

GAEYrAX 

ADD 

AX, 100 

MOV 

B.Y,AL 

MOV 

AX, SAVGAEZ 

MOV 

GAEZr AX 

ADD 

AX, 100 

MOV 

B_Z ,AL 

NEXT i : 

MOV 

AL,  1 

MOV 

0ATA_RDY1 , AL 

RTHIS  TELLS  THE  SLAVE  PROCESSOR  THAT  NEH 

J DATA  ARE  READY. 

018A  IF 


XREF  SYMBOL  TABLE  LISTING 


|JAMT 

nMnt 

TYPE 

VALUE 

ATTRIBUTES?  XREFS 

,?SEG  .  . 

SEGMENT 

SIZ£*OOOOH  PARA  PUBLIC 

B.Y  .  .  . 

V  BYTE 

0001H 

XFER.SEG  PUBLIC  40  411  242  244 

e.z  .  .  . 

V  BYTE 

0002H 

XFER.SEG  PUBLIC  40  424  254  270 

BAD.MISS. 

V  BYTE 

0004H 

XFER.SEG  444  214 

CENTER.  . 

L  NEAR 

0022H 

COOE  1354 

CGROUP.  . 

GROUP 

COOE  94  11 

CODE.  .  . 

SEGMENT 

SIZE=0180H  PARA  PUBLIC  ’COOE'  94  77  280 

DATA.RDYl 

V  BYTE 

0003H 

XFER.SEG  PUBLIC  40  434  272 

OGR'OUP.  , 

GROUP 

STACK  SBC.REGS  XFER.SEG  84  11  11  11  84 

DONE.  .  . 

L  NEAR 

OOCAH 

COOE  144  145  2124 

DOWN.  .  . 

V  BYTE 

0324H 

SBC.REGS  544  223 

DUMP.  .  . 

L  NEAR 

003EH 

CODE  1434  162  167 

FINI.  .  . 

L  NEAR 

0113H 

COOE  228  2314 

GAEY.  .  . 

V  HOP'D 

032CH 

SBC.REGS  PUBLIC  654  70  247  264 

GAEZ.  .  . 

V  HOP'D 

032EH 

SBC.REGS  PUBLIC  664  70  259  268 

GOODLN.  . 

L  NEAR 

0069H 

CODE  161  1694  210 

INIT1  .  . 

L  NEAR 

OOOOH 

EXTR'N  814  87 

LEFT.  .  . 

V  BYTE 

0322H 

SBC.REGS  544  226 

mss.  .  . 

V  BYTE 

0320H 

SBC.REGS  514  212  215  241 

Nl.  .  .  . 

L  NEAR 

0079H 

CODE  174  1854 

N3 .... 

L  NEAR 

OOBDH 

COOE  203  2054 

N4.  .  .  . 

L  NEAR' 

00B3H 

CODE  187  189  195  197  200  2024 

NS.  .  .  . 

L  NEAR 

00E3H 

CODE  214  2184 

N6  *  «  «  . 

L  NEAR 

OOEFH 

CODE  219  2214 

N7 .  .  .  . 

L  NEAR 

OOFBH 

CODE  222  2244 

NB.  .  .  . 

L  NEAR 

0107H 

COOE  225  2274 

N9 .  ,  ,  , 

L  NEAR 

00C7H 

COOE  206  2084 

NEXT1  .  . 

L  NEAR 

0185H 

CODE  262  2714 

OFFSET.Y, 

V  BYTE 

0005H 

XFER.SEG  454  239 

OFFSET.Z. 

V  BYTE 

0006H 

XFER.SEG  464  251 

OVER.  .  . 

L  NEAR 

0045H 

CODE  144  1474 

RD.R'AST  . 

L  NEAR 

OOOOH 

EXTRN  754  105 

REAP .  »  . 

L  NEAR 

0166H 

CODE  217  2614 

REDGE  .  . 

L  NEAR 

00A5H 

COOE  192  1984 

RIGHT  .  . 

V  BYTE 

0321H 

SBC.REGS  534  229 

SAVGAEY  . 

V  HORD 

0330H 

SBC.REGS  674  248  263 

SAVGAEZ  . 

V  WORD 

0332H 

SBC.REGS  684  240  267 

S8C.REGS, 

SEGMENT 

SIZE=0334H  PARA  COMMON  84  49  72 

SBCREG.  . 

V  BYTE 

OOOOH 

SBC.REGS  504  152  158  170  185  190  191 

SETRET.  . 

L  FAR 

OOOOH 

COOE  PUBLIC  79  804  96 

SIZ  .  .  . 

NUMBER 

0044H 

764  138  139  159 

SKIP.  .  . 

L  NEAR 

0061H 

CODE  160  1644 

STACK  .  , 

SEGMENT 

SIZE*0080H  PARA  STACK  ’STACK' 

START.BIT 

V  BYTE 

OOOOH 

XFER.SEG  394  88 

START  JJP. 

L  FAR 

OOOOH 

EXTRN  34 

TOF.STK  . 

V  HORD 

0080H 

STACK  154 

THOX.  .  . 

L  NEAR 

0089H 

CODE  171  1904 

UP.  .  .  . 

V  BYTE 

0323H 

SBC.REGS  554  220 

HAITO  .  . 

L  NEAR 

OOOCH 

CODE  884  92 

XFER.SEG. 

SEGMENT 

SIZE=0007H  PARA  ABS  84  36  47 

YCNTR  .  , 

V  BYTE 

0326H 

SBC.REGS  584  241 

102 


NAME 

TYPE 

VALUE 

ATTRIBUTES.  XREFS 

YHAXi  .  . 

V  BYTE 

0328H 

SBC .REGS 

60*  110  186  188 

191 

196  198  227  237 

YNINt  .  . 

V  BYTE 

0329M 

S8C.REGS 

61#  138  172  181 

193 

199  201  221  238 

YZCNTR.  . 

L  FAR 

0016H 

CODE  PUBLIC  98  99#  278 

ZCNTR  .  . 

V  BYTE 

0327M 

SBC.RECS 

59#  253 

ZMAX.  .  . 

V  BYTE 

032AH 

SBC.RECS 

62#  111  202  201 

221 

232  236  219 

ZMIN,  .  . 

V  BYTE 

032BH 

SBC.RECS 

63#  139  205  207 

213 

218  231  235  250 

M 


> 


ASSEMBLY  COMPLETE*  NO  ERRORS  FOUND 


ISIS-II  IXREF i  VI. 2 
INVOKED  BY! 

-IXREF  :F2!TOMNN.IXI,  :F2JTONFLP.IXIf  :F2:TOMTAft.IXI»  :F2:TOMSPC.IXI»  i 

:f2:t(mjt.ixi  prink  :f::tomix.  ref  )  « 

TITLE ('NFS  INTER-NODULE  CROSS  REFERENCE') 

INTER-NOOULE  CROSS-REFERENCE  LISTING 


NANE  .  ATTRIBUTES!  NODULE  NANES 


ACNT . INTEGER!  TOM.TARGET.HOOULE  TIWLIGHTNODULE 

ACTIVE.TRACK  .  .  .  PROCEDURE?  TOH.TARGET.NODULE  TOMFLIGHTNODULE 

B.Y .  BYTE*  «*  UNSOLVED  «  TOMFLIGHTNODULE 

B.Z .  BYTE;  n  UNRESOLVED  n  TOMFLIGHTNODULE 

COACH . PROCEDURE;  TON.SPEECH.NODULE  TOMFLIGHTNODULE 

COUNT . INTEGER!  TOMFLIGHTNODULE 

CURRENT.TRACK.  .  .  BYTE?  TOH.TARGET.NODULE  TOMFLIGHTNODULE  NAIN.TOM.NODULE 

DATA.RDY1 .  BYTE;  *«  UNRESOLVED  *i  TOMFLIGHTNODULE 

DCNT  .  INTEGER;  TOH.TARGET.NODULE  TOMFLIGHTNODULE 

EPILOG  .  PROCEDURE?  TOH.SPEECH.NODULE  NAIN.TOM.NODULE 

FINISHED  .  BYTE?  TOMFLIGHTNODULE  TOH.TARGET.NODULE  NAIN.TOM.NODULE 

FIRE.AGAIN  ....  PROCEDURE?  TOH.SPEECH.NODULE  NAIN.TOM.NODULE 

FLIGHT  .  PROCEDURE?  TOMFLIGHTNODULE  NAIN.TOM.NODULE 

GAEY  .  HORO;  «  UNRESOLVED  «*  TOMFLIGHTNODULE 

GAEY. F . REAL;  TOMFLIGHTNODULE  NAIN.TOM.NODULE 

GAEZ  .  HORO;  i*  UNRESOLVED  «  TOMFLIGHTNODULE 

GAEZ. F . REAL'.  TOMFLIGHTNODULE  TOH.TARGET.NODULE  NAIN.TOM.NODULE 

GROUNDED  .  PROCEDURE?  TOH.TARGET.NOOULE  TOMFLIGHTNODULE 

GUIDANCE.LOST .  .  .  BYTE!  TOMFLIGHTNODULE  TOH.SPEECH.NODULE  NAIN.TOM.NODULE 

HILL.INPACT .  .  .  .  BYTE!  TOH.TARGET.NODULE  TOH.SPEECH.NODULE  TOMFLIGHTNODULE  NAIN.TOM.NODULE 

HTARG . REAL!  TOMFLIGHTNODULE  TOH.TARGET.NODULE 

hx2as . procedure;  TOH.UTILITY 

H.REPRISE .  PROCEDURE!  TOMFLIGHTNODULE  NAIN.TOM.NODULE 

INIT87 . PROCEDURE!  «*  UNRESOLVED  «**  TOMFLIGHTNODULE 

INITIATEVAR.  .  .  .  PROCEDURE;  TOMFLIGHTNODULE  NAIN.TOM.NODULE 

INIT.STEPPER  .  .  .  PROCEDURE!  TOH.UTILITY 

LEFT  .  REAL!  TOH.TARGET.NODULE  TOH.SPEECH.NODULE  TOMFLIGHTNODULE  NAIN.TOM.NOOULE 

NISSILE.Z .  REAL;  TOHFLIGHTNOOULE  TOH.TARGET.NODULE 

MSS.CONNENT  .  .  .  PROCEDURE!  TOH.UTILITY  NAIN.TOM.NODULE 

NQERAT2 . PROCEDURE?  ***  UNRESOLVED  n*  TOH.TARGET.NODULE 

NQERCOS . PROCEDURE!  ««  UNRESOLVED  ***  TOH.TARGET.NODULE 

NQEREXP . PROCEDURE!  ***  UNRESOLVED  *i*  TOMFLIGHTNODULE 

NQERSIN . PROCEDURE!  m  UNRESOLVED  m  TOH.TARGET.NODULE 

NOERY2X . PROCEDURE!  *i*  UNRESOLVED  m  TOH.TARGET.NODULE 

OFF.H . REAL!  TOMFLIGHTNODULE  TOH.TARGET.NODULE 

PPI.SET . PROCEDURE!  TOH.UTILITY  NAIN.TOM.NODULE 

PROLOG  .  PROCEDURE!  TOH.SPEECH.NODULE  NAIN.TOM.NODULE 

QUIT  .  PROCEDURE!  TOH.SPEECH.NODULE  NAIN.TOM.NODULE 

RECEIVE . PROCEDURE  BYTE!  TOH.TARGET.NODULE 

RIGHT . REAL!  TOH.TARGET.NOOULE  TOH.SPEECH.NOOULE  TOMFLIGHTNODULE  NAIN.TOM.NODULE 

SEND  .  PROCEDURE!  TOH.TARGET.NOOULE  NAIN.TOM.NODULE 

SETRET  .  PROCEDURE!  **  UNRESOLVED  **  NAIN.TOM.NODULE 

SHORT . REAL;  TOMFLIGHTNODULE  TOH.SPEECH.NODULE  NAIN.TOM.NODULE 


SOUND . 

SPEECH.HIT  .... 
SPEECH.HISS,  .  .  . 

START.UP  . 

TARGET.DATA.  .  .  . 
TARGET.LOC  .  .  .  . 

TCNT . 

TCOUNTO . 

THREE.SEC.FLAG  .  . 

TRACK. 1 . 

TRACK.2 . 

TRACK.3 . 

UP . 

UPDATE.COUNTS.  .  . 
HIRE.BROKE  .  .  .  . 

X . 

YZCNTR  . 

Z . 


procedure;  toh.utility  toh.target.hodule  tomflighthooule  HAIN.TOH.HODULE 
byte;  toh.speech.hooule  toh.target.hooule  tomflighthooule 
byte;  toh.speech.hooule  toh.target.hodule  tomflighthooule 
label;  hain.tom.hooule 

procedure;  toh.target.hodule  tomflighthooule 

procedure;  tom.utility 

integer;  toh.target.hodule  hain.toh.hodule 

integer;  toh.target.hooule 

byte;  tomflighthooule  hain.toh.hodule 

procedure;  toh.target.hooule  tomflighthooule 

procedure;  toh.target.hooule  tomflighthooule 

procedure;  toh.target.hooule  tomflighthooule 

real;  toh.target.hooule  toh.speech.hooule  wlighthodule  hain.toh.hodule 

procedure;  toh.target.hooule  tomflighthooule 

byte;  tomflighthooule  toh.speech.hooule  hain.toh.hodule 

real;  tomflighthooule  toh.target.hooule 

procedure;  ■»  UNRESOLVED  «*  hain.toh.hodule 

real;  tomflighthooule  toh.target.hooule 


MUNRESOLVEDM 

IIIUNRESOLVEDH* 


HODULE  DIRECTORY 


IN  ASSEHBLY  LANGUAGE  COOEr  EITHER  TOHXF  OR  TOHIR 
FLOATING  POINT  LIBRARY  PROCEDURES  IN  8087, LIB  AND 
CEL87.LIB 


HODULE  NAHE.  ,  ,  .  FILE  NAHE  DISKETTE  NAHE 


HAIN.TOH.HODULE.  .  T0MHN.019  T0H10 
TOMFLIGHTHOOULE.  .  TOHFLP.018  T0M10 
TOH.SPEECH.HOOULE.  TQMSPC.009  T0H10 
TOH.TARGET.HODULE.  T0HTAR.005  TOHIO 
TOM.UTILITY.  .  ,  .  TOHUT.006  TOHIO 
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ISIS-II  PL/M-86  V2.1  COMPILATION  OF  MODULE  TOW.START.UP.MODUL E 
OeJECT  MODULE  PLACED  IN  ! FI : TOWST . OBJ 

COMPILER  INVOKED  BY!  PLM86  IFl J TOHST . 02^  DEBUG  ROM  XREF  0PTIMI2E(3)  LARGE  i 
TITLE ( '0930  5  NOVEMBER  1982’) 


1  toh.start.up.module:  do: 

2  1  DECLARE  SCENE-COUNT  LITERALLY  ' 06D* » MAX_MENU.NO  LITERALLY  '01D'! 

3  1  DECLARE  CARR.RET  LITERALLY  'ODH',  SPACE  LITERALLY  ' 20H ' » BELL  LITERALLY  '07H'! 

4  1  DECLARE  IOOATA  LITERALLY  ' 0D8H 1 .IOSTATUS  LITERALLY  ' ODAH ' » MASK  LITERALLY  ‘ 7FH ’ 

5  1  DECLARE  VECTOR.MODE  LITERALLY  ’350'  ,ALPHA_4010_M0DE  LITERALLY  '150', 

ADM3A.M0DE  LITERALLY  ‘300’ ,GRAPHICS_CLEAR  LITERALLY  '310', 

ADM3A.CLEAR  LITERALLY  '32Q' , CLEAR. ALL  LITERALLY  '330', 

HOME. CURSOR  LITERALLY  ’HQ’? 

6  1  DECLARE  C0UNTER.2  LITERALLY  '0D4H1, CONTROL  LITERALLY  '  0D6H  ’ , 

CNTR2M0DE  LITERALLY  '096H' ,SETCOUNT  LITERALLY  '04H'! 

/«  FOR  TIMER  SETUP  */ 

7  1  DECLARE  USART.CONTROL  LITERALLY  'OOAH' .USART.MODE  LITERALLY  '4EH' • 

USART.COMMAND  LITERALLY  ’ 37H ' i 

8  1  DECLARE  LINE.FEED  LITERALLY  'OAH'! 

9  1  DECLARE  ( DAY.SIGHT » STARTING.TRACK , TARGET.SWITCH , FINAL.TRACK  , 

EAST.WEST . CONTINUE )  BYTE  EXTERNAL! 

10  1  DECLARE  ( RESPONSE, GO_NOW,HENU_NO,MENU_DONE, SCENARIO, I, PREVIOUS.RESPDNSE)  BYTE! 

11  1  DECLARE  (0K1,0K2,T0TALY_0K)  BYTE! 

12  1  DECLARE  SCENARIO.BUFFER  (9)  BYTE  EXTERNAL! 

13  1  DECLARE  (RESP_1_ASCII,RESP_2_ASCII,RESP_1_NUM,RESP_2_NUM)  BYTE! 

14  1  DECLARE  ( SIGHT.FLAG » TRACK.FLAG , DONE , OK , SAME )  BYTE! 


/xxixxiixxxxxxixxxixxxiixyxxixxxxxxxxxiixxixxxxixixxxxxxixiixxxxixxxxxxiixxi 

«  THE  SCENARIOS  ARE  LISTED  BELOW.  * 

XXXXXXXIIXXXXX XXXXXXIXXXXXXXXXXXXXXYXXXXXXXXXXXXXXXXXXXXXXXXXIXXXXXXXXXXXXX/ 


15  1  DECLARE  SCENE.O  (D  BYTE  DATA  (CARR.RET)! 

16  1  DECLARE  SCENE. 1  <«)  BYTE  DATA  ( '  A 1 , CARR.RET ,  ’  H 1 , CARR.RET ,  ’  6 ' , CARR.RET , 

'S  1 ' f CARR.RET , 'R  225' »CAKR_RET, 'F  1’ .CARR.RET, 'E* .CARR.RET* 

'X  1500', CARR.RET, 'P  2620' , CARR.RET, 'X  1000' , CARR.RET, 'C' , CARR.RET, 

' B ', CARR.RET ,’ I' , CARR.RET ,' Q ',' ! V x ') ; 


17  1 


DECLARE  SCENE  2  <x)  BYTE  DATA  ( 'P' ,01H, 'A' , CARR.RET, 'H' , CARR  RET* 


'B' -CARR.RET, 'S  1 1 -CARR.RET- 'R  173' -CARR.RET- ‘F  1 1 -CARR.RET , '  E ' ,  CARR.RET • 

‘ X  761 1 r CARR.RET » 1 P  5210 ‘ - CARR.RET .'O’ .CARR.RET , ' 0 ' . 1 i ' , ' P ’ -02H , ' A ' . 

CARR.RET, 'H' -CARR.RET, ' B '-CARR.RET, 'S  l1, CARR.RET • ’R  17’'  rARR_RET- ‘F  1', 
CARR.RET, ' E'. CARR.RET, 'X  382 ' .CARR.RET, ' P  1650' .CARR.RET, 'O' .CARR.RET, 'Q' , 
'I'-'F"  ,03H, 1  A', CARR.RET, 'H'. CARR.RET, ‘B‘, CARR.RET. 'S  1' .CARR.RET- 'R  173', 
CARR.RET , ' F  T , CARR.RET , ' E ‘ , CARR.RET , ' R  1650 ' , CARR.RET , ' 0 ' , CARR.RET , ' 0 ' , ' i ' , 
•P'  ,01H,  'A'  .CARR.RET  -  'H'  -CARR.RET,  'E:'  .CARR.RET,  'S  1 '  .CARR.RET,  'R  1 '  -CARR.RET, 
'FI'  -CARR.RET , '  E ' ,  CARR.RET , '  X  1361  ‘  .CARR.RET , '  C ' ,  CARR.RET  CARR.RET , 

’  X  1000 '  -CARR.RET , '  C '  -CARR.RET  -  ’  E:  ‘ ,  CARR.RET  - '  0 ' ,  CARR.RET , '  Q ' , '  * '  - 
•P* -OSH, 1 A ' , CARR.RET , ' H ' , CARR.RET , ' P ' , CARR.RET , ‘ S  1 ' .CARR.RET, 'R  BO' , 

CARR.RET » ‘ F  1' -CARR.RET- 'E' -CARR.RET, 'X  761' -CARR.RET, 'P  650' , CARR.RET, 'O' , 
CARR.RET, ‘O', ' !•,'»' )# 


DECLARE  SCENE.3  <«)  BYTE  DATA  < 'F”  ,01H, 'A' -CARR.RET- 'H‘ -CARR.RET, '&' , 

CARR.RET, 'S  1 *, CARR.RET, 'R  173' .CARR.RET, 'F  1' , CARR.RET, ' E 1 -CARR.RET, 

'X  761 ' , CARR.RET , 1 P  5210 ' , CARR.RET , ' 0 ' , CARR.RET , * Q ' , ' i ' - ' F" , 02H - ' A ' , 
CARR.RET, 'H* -CARR.RET, *8' , CARR.RET, 'S  1 ' -CARR.RET- 'R  173' -CARR.RET, *F  1', 
CARR.RET, 'E', CARR.RET, 'X  382' •CARR.RET, 'P  1650' -CARR.RET, 'X  1091' -CARR.RET, 
•P  5210' -CARR.RET, '0' -CARR.RET, 'Q' , , 'P' ,03H, 'A' -CARR.RET, 'H' -CARR.RET, 

' B', CARR.RET, 'S  1 ' -CARR.RET, 'R  173' -CARR.RET, *F  1 ' -CARR.RET, 'E' -CARR.RET- 
'P  500' -CARR.RET, 'X  100' -CARR.RET, 'p  O' -CARR.RET- 'O' -CARR.RET- 'Q' - 'i' - 'P' , 
01H. 'A' -CARR.RET- ' H ' -CARR.RET » ‘B’ -CARR.RET - ' S  1 ' -CARR.RET, 'R  1 ' -CARR.RET , 

'F  1 ' -CARR.RET, ' E 1 -CARR.RET , ' X  1361 ' -CARR.RET- ' C 1 .CARR.RET, 'B ’ .CARR.RET, 

'X  1500' -CARR.RET. 'C* -CARR.RET, '&' -CARR.RET, 'O' .CARR.RET, 'C » '»' - ’F" -05H- 
' A ' - CARR.RET , ' H ' -CARR.RET , ' B ' , CARR.RET , ' S  1 ' -CARR.RET- 'R  80’ -CARR.RET, 'F  1', 
CARR.RET- 'E', CARR.RET, 'X  381' -CARR.RET, 'P  650 ’ -CARR.RET- 'X  1091' -CARR.RET - 
'P  250', CARR  RET  - ' 0 ' , CARR.RET ,' Q  ‘ 


DECLARE  SCENE.1  (*)  BYTE  DATA  ( ‘ F"  -01H, 1 A ' -CARR.RET- ’ H ' -CARR.RET , ' B * , 

CARR.RET, 'S  1' -CARR.RET, 'P  173’ , CARR.RET, 'F  1 ' -CARR.RET- 'E' , CARR.RET, 

' X  761 ' , CARR.RET , ' P  5210 ' - CARR.RET , ' 0 ' , CARR.RET -• Q F ' -02H- ' A ' - 
CARR.RET, 'H', CARR.RET, 'B', CARR.RET, 'S  1'. CARR.RET, 'R  173' -CARR.RET- ‘F  1', 
CARR.RET, 'E' -CARR.RET, 'X  382' .CARR.RET- 'P  1650' -CARR.RET- 'O' -CARR.RET, 
'Q','*','P'-03H, 'A'. CARR.RET, 'H'. CARR.RET, 'B'- CARR.RET, 'S  1 ' -CARR.RET , 

'R  173' -CARR.RET-  F  1 ' -CARR.RET, ' E ' -CARR.RET, ' R  1650' -CARR.RET- 'O' .CARR.RET, 

' 0 P ', 01H ,' A ', CARR.RET ,' H ', C  ARR.RE  T ,’ 6 ', CARR.RE  T .' S  1 ' -CARR.RET ,' R  1 ' - 
CARR.RET. 'FI' -CARR.RET, ’E' -CARR.RET- 'X  5200' -CARR.RET, 'C' -CARR.RET- 'B' - 
CARR.RET, '0 ' -CARR.RET - ' P ’ - 1  * ' - ' R ' -05R- ' A ' -CARR.RET , ' H' -CARR.RET - ' B ' -CARR.RET , 
'S  1', CARR.RET, 'R  215' .CARR.RET- 'F  1 '-CARR.RET- 'E ' -CARR.RET, 'P  150' -CARR.RET - 
'X  6000 ', CARR.RET, 'P  125' -CARR.RET, 'F  1 ' -CARR.RET, 'F  650' -CARR.RET, 'O' , 
CARR.RET-'Q'.'' '-'r  . ? 

DECLARE  SCENE.5  (»)  BYTE  DATA  ( 'F" ,01H- 'A' -CARR.RET, 'H' .CARR.RET, 'B' -CARR.RET, 
'S  1' -CARR.RET- 'R  156' -CARR.RET- 'F  1 ' -CARR.RET, 'E' -CARR.RET, 'P  5210’, 

CARR.RET , ' 0 ' , CARR.RET , ' 0 ' , ' * ' » '  F" , 02H , ' A ' , CARR.RET , ’ H ' - CARR.RET , ' B ' , CARR.RET , 
'S  1 '-CARR.RET, 'R  156 ' -CARR.RET , 'F  1 ’, CARR.RET- 'E', CARR.RET, 'P  500' -CARR.RET, 
' X  100 ' -CARR.RET , ' P  0 ' , CARR.RET -'O', CARR.RET , ' Q '  F" , 03H • ' A ’ , CARR.RET , 

'H' -CARR.RET, 'B' -CARR.RET, 'S  1 ' -CARR.RET, 'R  156' -CARR.RET, 'F  1 ' , CARR.RET, 'E ' , 
CARR.RET, 'X  350' -CARR.RET- 'F  575' -CARR.RET- 'X  125’ -CARR.RET, 'P  O', CARR.RET, 
'O', CARR.RET, 'Q' , 'i' , 'F ' ,01H, 'A' -CARR.RET, 'H' .CARR.RET, 'B' -CARR.RET, 'SI', 
CARR.RET, 'R  1' . CARR.RET- 'F  1' -CARR.RET, 'E '-CARR.RET, 'X  1361' -CARR.RET, 'C' , 
CARR.RET, 'B' -CARR.RET, 'X  1091' -CARR.RET- 'C ' -CARR.RET, 'B' -CARR.RET, 'O' , 
CARR.RET  - '  Q  P ' , OSH, '  A ' , CARR.RET , '  H ' ,  CARR.RET , '  B ' , CARR.RET , '  S  1 '  - 
CARR.RET, 'R  100' -CARR.RET- 'F  1 ' .CARR.RET, 'E' -CARR.RET, 'X  367 1 -CARR.RET, 

'P  650' -CARR.RET, 'X  515' -CARR.RET, 'P  150' -CARR.RET- 'X  515' -CARR.RET- 'L  3-3'- 
C ARR.RE T, ' P  650 ' , CARR.RET , 'O', CARR.RET -'O’,''','*'); 


I  I  *-L.  I+.1* 
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DECLARE  SCENE. 6  <*)  BYTE  DATA  ( ' P ‘ .01H *  ‘ A‘ , CARR.RET, ’ H ‘ rCARR_RET » 'B' » CARR_RET » 
•S  1 1 » CARR.RET,  'R  173'  »CARR_RET ,  'F  1 ' , CARR.RET . 'E 1  .CARR.RET » ’ X  764' -CARR.RET 
1 p  5240 ’ , CARR.RET , 1 0 ' r CARR.RET , ' Q ' , ' i ' , ' P ' , 02H . ’ A ' -CARR.RET , 1 H 1  * CARR.RET , 

' B‘, CARR.RET. 'S  1‘ •CARR.RET* *R  173' , CARR.RET ,  'F  1 1 , CARR.RET  , 'E' » CARR.RET? 

'P  2200 ' *  CARR.RET » ' X  382* .CARR.RET. ‘P  1650' .CARR.RET. '0' .CARR.RET, '0' . '*' . 
■f" -03Hf 1 A'. CARR.RET.1 H', CARR.RET, 'B', CARR.RET,' S  1' .CARR.RET, 'R  173', 
CARR.RET, 7  1 1 .CARR.RET, 'E' .CARR.RET, 'X  382' .CARR.RET, 'P  2100' .CARR.RET, 

'X  425 ’ .CARR.RET, ' P  1650 ' .CARR.RET, ' 0 ' .CARR.RET, 'G' , '*' , 'P' ,04H« 'A' -CARR.RET 
■H* , CARR.RET, '6'. CARR.RET, 'S  1' .CARR.RET, 'R  1 ' .CARR.RET, 'F  1  * .CARR.RET, * E ' , 
CARR.RET, 'X  4364' .CARR.RET, 'C' .CARR.RET, 'B' -CARR.RET, 'X  820' -CARR.RET, 'C , 
CARR.RET , 1 B ' , CARR.RET , ' 0 1 , CARR.RET , ' Q ' , 1 1 V  P 1 . OSH, ‘ A 1 , CARR.RET , ' H ' , CARR.RET 
'B' -CARR.RET,' S  1 ' -CARR.RET, -R  245' -CARR.RET, 'F  1 ‘ .CARR.RET, 'E* -CARR.RET- 
•P  650', CARR.RET, 'R  235 * -CARR.RET, ' F  1 ' -CARR.RET, 'P  625’ -CARR.RET, 'X  273’, 
CARR.RET-  P  650', CARR.RET,' X  273‘ -CARR.RET- 'L  If ,7' .CARR.RET, 'p  650', 
CARR.RET, ‘O', CARR.RET, 'O',1'','!'!; 

DECLARE  GO.HOME  (*)  BYTE  DATA  ( 'H' -CARR.RET- 'N  1' -CARR.RET, -CARR.RET- 
'R  245' -CARR.RET, 'E‘ -CARR.RET, 'G' -CARR.RET, ' T ' .CARR.RET, 'I' .CARR.RET, 

'QD', CARR.RET-'*'); 

DECLARE  RAISE. MOTOR  (*)  BYTE  DATA  CF" , OSH, 'A' -CARR.RET, 'H' -CARR.RET, 

'S  1', CARR.RET, 'R  225' -CARR.RET- 'F  1 ', CARR.RET, 'E' -CARR.RET, 

' p  650 ' .CARR.RET -’I' -CARR.RET .'O' -CARR.RET ,' 0 : 

DECLARE  LOWER.MOTOR  (*:■  BYTE  OATA  ,  'H'  .CARR.RET,  'S  1', CARR.RET, 

'R  150 ' .CARR.RET - 'F  1 ' -CARR.RET, 'E' -CARR.RET, '-•-CARR.RET, 'N  700‘ -CARR.RET, 

' G ' , CARR.RET . ' I' , CARR.RET , ' 0 ' .CARR.RET , ' OD ' - CARR.RET - ' * ' K 


'iiumiiiuiiimmiiiiiiinmiinimmumiiniumiinmiimiiiiii 

i  COMMENTS  PRINTED  ON  THE  SCREEN  BY  THE  PRINT  PROCEDURE  ARE  LISTED  BELOW.  i 

iimiimiiimHmiimuiKmimmniimiiiiiiiiiimiiiiiimmim/ 


DECLARE  HELLO  (*:  BYTE  DATA  (CARR.RET, LINEFEED, LINE.FEED.LINE.FEED-LINE.FEED, 
' STACS-T  TRAINER  VERSION  1. O', CARR.RET, LINE.FEED, '*')} 

DECLARE  FOO.BAH  (*)  BYTE  DATA  ('  I  TOLD  YOU  THIS  'lllftf  TRAINER  CAN '  ’ T  ', 

'DO  THAT' ' ' ' -CARR.RET, LINE.FEED, '*' , ) > 

DECLARE  HELLO.CON  </'■  BYTE  DATA  (CARR.RET, LINE.FEED, 'NEED  A  MENU-  fY  OR  N)‘, 
CARR.RET. LINE.FEED.  i’': 

DECLARE  ITEM.l  (D  BYTE  DATA  ('ITEM  II  TANK  MOVES  TO  THE  CENTER  OF  THE', 

'  TRACK  AND  STOPS' - CARR.RET - LINE.FEED . ' * ') > 

DECLARE  ITEM. 2  (U  BYTE  DATA  ('ITEM  21  FRONT  TANK  RISES  FROM  TRENCH-  MOVING', 

'  WEST,  AND  BECOMES  THE  TARGET ' -CARR.RET, LINE.FEED, '  CENTER  AND  '• 

'REAR  TAMKS  MOVE  FROM  EAST  TO  WEST  INTO  COVER" -CARF .RET -LINE.FEED- '*') i 

DECLARE  ITEM. 3  (*-  BYTE  DATA  (’ITEM  3:  FRONT  TftNt  RISES  FROM  TRENCH  MOVING  ', 
'WEST.  THEN  SINKS  AGAIN' , CARR.RET, LINE.FEED- '  CENTER  TANK  MOVES  ', 

'WEST  INTO  COVER!  THEN  REAPPEARS-  MOVING  EAST ' •CARR.RET. LINE. FEED, ' 

'AND  BECOMES  THE  TARGET.  REAR  TANK  MOVES  OUT-  THEN  RETREATS  TO  ', 

CARR.RET. LINE  FEED- '  ITS  REAR  INTO  COVER". CARR  RET, LINE  FEED- ' * '  > ; 


DECLARE  ITEM  (it  BYTE  DATA  ('ITEM  41  CENTER  AND  REAR  TANKS  MOVE  EAST  TO 
'WEST  INTO  COVER'. CARR.RET, LINE.FEED- 1  FRONT  TANK  RISES  FROM  TRENCH'. 

•  AND  BECOMES  TARGET  AS  CENTER  AND' <CARR.RET.LINE.FEED. '  REAR  TANKS'. 

'  DISAPPEAR ' . C ARR.RE  T . LINE.FEED .’*')# 

DECLARE  ITEM.5  d)  BYTE  DATA  ('ITEM  5!  FRONT  TANK  RISES  FROM  TRENCH  AND  '. 
'TRAVERSES  HILLY  TERRAIN' .CARR.RET, LINE.FEED, '  CENTER  AND  REAR  ', 

'TANKS  APPEAR.  THEN  RETREAT  INTO  COVER' .CARR.RET. LINE.FEED. ’«' ) J 

DECLARE  ITEM.6  (*-  BYTE  DATA  ('ITEM  6!  FRONT  TANK  MOVES  WEST  OVER  ROUGH  '. 
'TERRAIN'. CARR.RET. LINE.FEED-'  CENTER  AND  REAR  TANKS  MOVE  WEST 

•THROUGH  COVER  AND  THEN  RETREAT' .CARR.RET. LINE.FEED. '  BACK  INTO  IT'. 

CARR.RET- LINE.FEED.' i' 

DECLARE  PAGE.COMMENT  (*)  BYTE  DATA  (CARR.RET. LINE.FEED. LINE.FEED. LINE.FEED. 
LINE.FEED. LINE.FEED. 'PAGE  *')! 

DECLARE  SINGLE.PAGE  (*)  BYTE  DATA  (LINE.FEED. ‘PRESS  *E*  TO  EXIT  MENU.'. 
CARR.RET. LINE.FEED. LINE.FEED. '*') > 

DECLARE  FIRST. PAGE  («)  BYTE  DATA  (LINE.FEED. 'PRESS  ,N*  TO  SEE  THE  NEXT  PAGE.’. 

'  •£'  TO  EXIT  MENU'. LINE.FEED. CARR.RET. LINE.FEED.'*'); 

DECLARE  CENTER.PAGE  (*)  BYTE  DATA  (LINE.FEED. 'PRESS  ‘N1  TO  SEE  THE  NEXT  PAGE.'. 
'  'P*  TO  SEE  THE  PREVIOUS  PAGE.  *E“  TO  EXIT  MENU' .LINE.FEED. CARR.RET. 
LINE.FEED-'*'); 

DECLARE  LAST.PAGE  (*>  BYTE  DATA  (LINE.FEED. 'PRESS  'P'  TO  SEE  THE  PREVIOUS  '. 
'PAGE.  'E*  TO  EXIT  MENU’ .LINE.FEED .CARR.RET. LINE.FEED. '*' ) » 

DECLARE  FOO  (*>  BYTE  DATA  ('  THIS  STAGS-T  TRAINER  CAN"T  DO  THAT'!'. 

CARR.RET .LINE.FEED, ' * ' ) ! 

DECLARE  REQUEST  (*)  BYTE  DATA  ( CARR.RET , LINE.FEED » LINE.FEED • LINE.FEED 

•  LINE.FEED, 'WHICH  ITEM  ??*')! 

DECLARE  SIGHT.O  (*)  BYTE  DATA  ('DO  YOU  UISH  TO  USE  THE  DAYSIGHT  <D>  OR  THE  ', 
'NIGHTSIGHT  (NP  ','*')» 

DECLARE  TRACK. 0  (*)  BYTE  DATA  ('WHICH  TRACK  DO  YOU  WISH  TO  RUN  THIS  SCENARIO1, 

'  ON '.CARR.RET, LINE.FEED,'  (1  =  FRONT,  2  =  CENTER.  AND  3  =  REAR)’  '»'*'); 

DECLARE  ITEM.PTRS.l  (*)  POINTER  DATA!?ITEM.l,@ITEH.Z-(?ITEH_3>?ITEN_A*?ITEH_j, 
RITEM.6) ! 


/IIIIII<1IZXIXXXIIIIIZX1IXIIIIX*XIIIXXI**1**IIX***IX**I************************ 

x  THE  FOLLOWING  SUBROUTINE  INPUTS  A  BYTE  OF  ASCII  DATA  FROM  THE  TERMINAL  * 

xiiximxxiixiiiiiixxiixixiiiixxixiiiixiixxixixiixixiiiixxiiixxiiixixixmim ' 

CIN! PROCEDURE  BYTE! 

DO  WHILE  NOT  SHR ( INPUT ( IOSTATUS ) , 1 ) i 

end; 

RETURN  MASK  AND  INPUT ( IODATA ) i 
END  CINi 


/ixxxxiiiiixxxiiixiixixiiiixixxiixixxxxixixixxixiiiixxiixxixiixxiiiiizxiiiixxxi 

x  THE  FOLLOWING  SUBROUTINE  OUTPUTS  A  BYTE  OF  ASCII  DATA  TO  THE  TERMINAL  » 

ZIXXIXXXXXXIIIIXIXXIXXIXIXIXIXIXIXIXXZZXIXXIXXIZIIIIXIIIIIIIXXXIIIIIXIXIXXXXII/ 

COUT :  PROCEDURE  (ITEM)! 

DECLARE  ITEM  BYTE. 

DO  WHILE  NOT  ( INF'UT  ( IOSTATUS ) ) . 

end; 

output<iooata)=item; 

CALL  TIM£( 15); 

END  cout; 


/IIIXXIIIIXIIXIIIIXIIIXIXIIKXIIIIIIIIXXIIXXIIXIIIIIXXIIXXXIXXXXXXIIXXIIZIIXX/ 

/X  THE  FOLLOWING  ROUTINE  OUTPUTS  A  CHARACTER  TO  THE  87A1  WHEN  CALLED  FROM  x/ 
/x  THE  MAIN  PROGRAM  x/ 


/IIIXIXIXXXIIIIXIXXIXXXIIIIXIIIXXZIIXXXXXXXIXXIIIIIXXZIXIXXZIXXZXIIIXIZIIIXXI/ 

OUTPT:  PROCEDURE  (OUTDATAj ! 

DECLARE  OUTDATA  BYTE.  STAT.COM  BYTE  AT  (OFOOOH).  P.DATA  BYTE  AT  (0F002H) ! 

DO  WHILE  NOT  SHR  <  ST  AT  _CON • 1 ) *  /«  WAIT  UNTIL  UPI41  IBF  =  0  x/ 

end; 

P.DATA  =  NOT  OUTDATA!  /x  NOT  BECAUSE  MULTIBUS  INVERTS  x/ 

END  OUTPT : 


PRINT!  PROCEDURE (F'NTR);  /x  PROMPTS  THE  CONSOLE  x/ 

DECLARE  I  WORD; 

DECLARE  F'NTR  POINTER. 

CHAR  BASED  F'NTR  (1)  BYTEJ/x  CHAR  MUST  BE  AN  ARRAY  TO  KEEP  PLM  HAPPY  x/ 

i  =  o; 

LOOP:  DO  WHILE  CHAR < I )  <>  'x’J 
CALL  COUTfCHAR(I)); 
i  =  i  +  i; 

END  loop; 
end  print; 

/XXIXXXXXXXXXXIXXIXXXXXXXIXXXXXXIXXXXXXXXIXIXIXXXZXXXXXXXZIXIIXIXXXXXXIXXZXXXX 

X  THIS  PROCEDURE  SENDS  AN  ENTIRE  PROGRAM  (OR  'SCENE').  POINTED  TO  BY  x 

x  PROG.F’TR.  TO  THE  CY512  i 

XIXXXXXXXXXXXIIIIXIIXIXIKXXZIXXIIXXXXXXIXIXZIXZIZIXXZZXIXIXXZXXXIXXIXXIXXXXXX/ 

TANK .PROG:  PROCEDURE ( PROG.PTR, LENGT ) ; 

DECLARE  PROG.PTR  POINTER.  LENGT  WORD.  (ITEM  BASED  PROG.F’TR )  (1)  BYTE. 

c  word; 
c  =  o; 

DO  WHILE  C  <  LENGT; 

CALL  OUTPT ( ITEM ( C  > ) ; 

c  =  c  +  1; 

end; 

end  tank.prog; 


x  THIS  PROCEDURE  SENDS  ALL  THE  MOTORS  TO  THEIR  HOME  POSITIONS.  i 

XXXXXXXXXXXXXXXIXXXXXXXXXXXXXXXXIXXXXXXXXXXXXXXIXXXXXIXXXXXXXXXXXIXXXXXXIIIX/ 


79  1  RESET.MOTORS!  PROCEDURE! 

80  2  I  *  0! 

81  2  DO  WHILE  I  <  1! 

82  3  I  =  I  +  1! 

83  3  CALL  OUTPTCP')! 

81  3  CALL  OUTPT ( I ) * 

85  3  CALL  TANK.PROG(@GO_HOME» SIZE (GO  HOME))! 

86  3  END! 

87  2  CALL  OUTPT  rp')! 

88  2  CALL  OUTPT ( OSH )! 

39  2  CALL  TANK.PR0G(8L0WER_M0TQR>SIZE(L0WER_MQT0R}>! 

90  2  END  RESET. MOTORS! 


/i  OUTPUTS  PAGE  1  OF  THE  MENU  « ' 

91  1  MENU.ll  PROCEDURE: 

92  2  RESPONSE  =  0! 

93  2  CALL  PRINT (8PAGE.C0MMENT1! 

91  2  CALL  COUT ' 1 1  ‘  >  5 

95  2  CALL  COUKCARR.RETi! 

96  2  CALL  COUT(LINE.FEED)! 

97  2  CALL  COUT(LINE.FEED)! 

98  2  1=0! 

9 15  2  DO  WHILE  I  LENGTH! ITEM  PTRS.l)! 

100  3  CALL  PRINT (ITEM  PTRS  HI))! 

101  3  I  =  i  +  i; 

102  3  END! 

103  2  CALL  PRINT ( 8SINGLE.PAGE ) ! 

101  2  END  MENU.l! 


/i  OUTPUTS  PAGE  2  OF  THE  MENU  i/ 

105  1  MENU.2J  PROCEDURE! 

106  2  RESPONSE  =  0! 

107  2  END  NENU.2! 


/i  OUTPUTS  PAGE  3  OF  THE  MENU  «/ 

108  1  MENU.3*  PROCEDURE! 

109  2  RESPONSE  =  0! 

110  2  END  MENU.3! 


/i  OUTPUTS  PAGE  1  OF  THE  MENU  */ 

111  1  MENU.l J  PROCEDURE! 

112  2  RESPONSE  =  0! 

113  2  END  MENU.l! 
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/*  OUTPUTS  PAGE  5  OF  THE  MENU  */ 


111  1 

115  2 

116  2 


117  1 

118  2 

119  2 

120  2 
121  2 

122  2 
123  2 

121  3 

125  3 

126  3 

127  3 

128  3 

129  3 

130  3 

131  3 

132  3 

133  3 

134  4 

135  4 

136  4 

137  4 

139  5 

141  6 

142  6 

143  6 

144  5 

145  6 

146  6 

147  6 

148  5 

149  4 

151  5 

153  6 

154  6 

155  6 

156  5 

157  6 

158  6 

159  6 

160  5 

161  4 

163  5 


MENU.51  procedure; 
RESPONSE  =  0; 
END  MENU.5J 


give.menu:  procedure; 

CALL  PRINT (RHELLO.CON); 

RESPONSE  =  0; 

RESPONSE  =  CIN  5 

CALL  COUTC RESPONSE)!  /*  ECHO  PRINT  «/ 

IF  (RESPONSE  =  59H)  OR  (RESPONSE  =  79H)  THEN  /*  UPPER  OR  LOWER  CASE  *Y*  * 

menu;  do; 

CALL  COUT(CARR.RET)» 

CALL  COUT(LINE.FEED) » 

MENU.DONE  =  0! 

MENU.NO  =  1! 

CALL  COUT(UECTOR.MODE); 

CALL  COUT( CLEAR. ALL)? 

CALL  COUT (HOME.CURSOR) * 

CALL  TIME (2000)! 

CALL  MENU.l* 

DO  WHILE  NOT  MENU.DONE; 

SAME  =  o; 
ok  *  o; 

RESPONSE  =  CIN? 

IF  (RESPONSE  =  4EH'  OR  (RESPONSE  =  6EH)  THEN  DO*  /«  UC  OR  LC  'N*  «/ 
IF  MENU.NO  <  MAX.MENU.NO  THEN  DO! 

MENU.NO  =  MENU.NO  +  1! 

ok  «  i; 
end; 

else  do; 
same  =  i; 

CALL  COUT(BELL); 

end; 

end; 

IF  (RESPONSE  =  50H)  OR  (RESPONSE  =  70H)  THEN  DO;  /«  UC  OR  LC  'P*  «/ 

IF  MENU.NO  >  1  THEN  DOT 
MENU.NO  =  MENU.NO  -  1! 

OK  =  i; 

end; 

ELSE  do; 

SAME  =  i; 

CALL  COUT (BELL); 

end; 

end; 

IF  (RESPONSE  =  45H)  OR  (RESPONSE  =  65H)  THEN  DO! 

MENU.DONE  =  1 !  /«  UC/LC  'E*  «/ 


166 

1 

IF  NOT  HENU.DONE  THEN  IF  NOT  SANE  THEN  IF  OK  THEN  DO,* 

170 

r 

CALL  COUT< CLEAR. ALL) 5 

171 

c 

J 

CALL  COUT(HOME.CURSOR); 

172 

c 

J 

CALL  TIH£(2000)! 

173 

J 

DO  CASE  (HENU.NO  -  1)1 

171 

6 

CALL  HENU.ll 

175 

6 

CALL  HENU.21 

P6 

6 

CALL  MENU.3J 

177 

6 

CALL  HENU.ll 

178 

6 

CALL  HENU.51 

T9 

6 

end; 

180 

5 

end; 

181 

1 

end; 

182 

3 

end  henu; 

183 

n 

i. 

else  do; 

181 

3 

CALL  COUT(CARR.RET); 

185 

3 

CALL  COUT(LINE.FEED),* 

186 

3 

end; 

187 

L. 

CALL  COUT( CLEAR. ALL); 

188 

n 

CALL  COUT ( HOHE.CURSOR ) ! 

189 

n 

CALL  TIME ( 2000 ) ! 

190 

2 

END  GIVE.MENU; 

191 

1 

tank.init:  procedure  public; 

/ixxixxxixixxxixxxxxxxiixixixxxiiiiixixiixiixxxxiixxixixxxixxxxxxxxxxxx 

TANK.INIT  PROCEDURE  BEGINS  HERE 

/xxxxxixxmximmixxxxxxixxxxxuxxzxmuxxxxxxxxxxxxxxxxixxxxxxxxxxxxxxxxx 
i  RESET  ALL  MOTORS  TO  STARTING  POSITIONS.  « 
iiixixiiixxxxiximxxxiixxxxxxxxxxxxxxxxxxxxixxxxxiiiixxxxixixxixxxxxxxxxxxii/ 

192 

2 

call  reset.motors; 

193 

9 

CALL  COUT (VECTOR. MODE ) ! 

191 

2 

CALL  COUT (CLEAR. ALL >  J 

195 

n 

u 

CALL  COUT (HOME .CURSOR ) ! 

196 

k. 

CALL  TINE  ( 2000  >,* 

197 

n 

COMMENT 11 

CALL  PRINT (UHELLO); 

198 

2 

CALL  GIVE.MENU! 

199 


? 


OKI, 0K2,T0TALY.0K,GQ_N0H, RESPONSE* PREVIOUS .RESPONSE  =  0? 


200  2 


get.item:  do  while  hot  totaly.ok; 

/*  WAIT  TILL  A  PROPER  HENU  ITEM  IS  ENTERED  */ 

201  3  CALL  PRIHT  (SREOUEST)J 

202  3  0K_1 I  DO  WHILE  NOT  OKI? 

203  4  RESP.l.ASCII  *  CINJ 

204  4  RESP.l.NUM  =  RESP.l. ASCII-30H 5 

205  4  IF  (RESP.l .ASCII  <  3AH)  AND  (RESP.l.ASCII  >  30H)  THEN  /*  IS  BETWEEN  1*9*/ 

206  4  DOT 

207  5  CALL  COUT  (RESP.l.ASCII); 

208  5  OKI  =  U 

20?  5  end; 

210  4  ELSE  CALL  COUT(BELLU 

211  4  ENO  0K.15 

212  3  OK .21  DO  WHILE  NOT  0K2! 

213  4  RESP.2.ASCII  =  CIN? 

214  4  RESP.2.NUM  =  RESP.2.ASCII  -  30H? 

215  4  IF  ( (RESP.2. ASCII  <  3AH)  AND  (RESP.2.ASCII  >  29H) )  OR  (RESF.2.ASCII  =  CARR.RET)  THEN 

216  4  do; 

217  5  IF  RESP.2.ASCII  <>  CARR.RET  THEN  CALL  COUT  (RESP.2. ASCII)* 

21?  5  OK 2  =  U 

220  5  end; 

221  4  ELSE  CALL  COUT (BELL)! 

222  4  END  0K.2! 

223  3  IF  RESP.2.ASCII  O  CARR.RET  THEN 

224  3  DO,* 

225  4  RESP.l.NUM  =  RESP.l.NUM  *  100? 

226  4  RESPONSE  =  RESP.l.NUM  +  RESP.2.NUM; 

227  4  SCENARIO.BUFFER  (6)  =  RESP.l.ASCII; 

228  4  SCENARIO.BUFFER  (7)  =  RESP.2.ASCIIJ 

22?  4  GO.NOW  =  0! 

230  4  end; 

231  3  ELSE  DO! 

232  4  RESPONSE  =  RESP.l.NUM; 

233  4  SCENARIO.BUFFER  (6)  =  SPACE J 

234  4  SCENARIO.BUFFER  (7)  =  RESP.l.ASCII; 

235  4  GO.NOW  =  CARR.RET! 

236  4  END! 

237  3  IF  RESPONSE  <«  SCENE.COUNT  THEN  TOTALY.OK  *  U 

23?  3  ELSE  DO! 

240  4  0K1.0K2  =  0! 

241  4  IF  RESPONSE  <>  PREVIOUS.RESPONSE  THEN  CALL  PRINT  (gFOOU 

243  4  ELSE  CALL  PRINT (9F00.BAH); 

244  4  CALL  COUT (CARR.RET); 

245  4  CALL  COUKLINE.FEEDU 

246  4  CALL  COUT (BELL)! 

247  4  PREVIOUS.RESPONSE  =  RESPONSE! 

248  4  CALL  GIVE.MENU! 

24?  4  END! 

250  3  end; 


251  2 


SCENARIO  =  RESPONSE: 


252  2 

253  3 

254  3 

256  3 

257  2 

258  2 


259  2 

260  2 

261  2 

262  3 

263  4 

264  3 

265  4 

266  4 

267  3 

268  4 

26?  4 

270  3 

271  4 

272  4 

273  3 

274  4 

275  4 

276  3 

277  4 

278  4 

27?  3 

280  4 

281  4 

282  3 


WAIT.G01 

DO  WHILE  GO.NOW  O  CARR.RET »  /*  WAIT  FOR  CARR.RET  «/ 

GO.NOW  =  cin; 

IF  GO.NOW  <>  CARR.RET  THEN  CALL  COUT  (BELL ) » 

END  HAIT.GO; 

CALL  COUT (CARR.RET)} 

CALL  COUT(LINE.FEEO); 


/iiiiixiiiiiiiiiixixxixiixixxxixixiixixiixixxixiixiixixxixiiiiiiiiiixxixiixxixx 


SET  FLAGS!  * 

SIGHT.FLAG  =  1  ==>  INSTRUCTOR  HAS  A  CHOICE  OF  DAY  OR  NIGHT  SIGHT  X 

TRACK.FLAG  =  1  ==>  INSTRUCTOR  HAS  A  CHOICE  OF  WHICH  TRACK  TO  USE  X 

EAST.WEST  =  1  ==>  TARGET  WILL  START  FROM  THE  EAST  x 

STARTING.TRACK  ==>  THE  TRACK  THE  SCENARIO  HILL  START  ON  x 

TARGET.SMITCH  =  0  ==>  THERE  WILL  BE  NQ  TARGET  SWITCH  x 

FINAL. TRACK  ==:  TRACK  TO  SWITCH  TO  IF  THERE  IS  A  SWITCH  X 

CONTINUE  ==^  SYNCHRONIZES  DIGITALKER  x 


xxxxxxxxxxxxixixxixxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxmxxxxxxxxxxxixxxxxxxxx/ 

SIGHT.FLAG. EAST.WEST  =  1. 

TRACK.FLAG  f  TARGET.SWITCH » FINAL.TRACK  =  0! 

FLAG.SETIDO  CASE  (SCENARIO).* 

FLAG.SET.01D0;  /x  DO  CASE  EXPECTS  0.  BUT  THERE  IS  NEVER  SCENARIO  0  x/ 

end; 

FLAG.SET.il DO? 

TRACK.FLAG  =  1! 

end; 

FLAG.SET.2 !DO» 

STARTING.TRACK  =  1! 

end; 


FLAG.SET.31D0; 
STARTING.TRACK  =  21 

end; 

FLAG.SET.41D0; 
STARTING.TRACK  =  1! 

end; 

FLAG.SET.51D0; 
STARTING.TRACK  =  1.* 

end; 

FLAG.SET.61D0! 
STARTING.TRACK  =  1! 

eno; 

END  FLAG.SET! 
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283 


done  >  o; 


284  2 

286  3 

287  3 

288  3 

289  3 

290  3 

291  3 

292  3 

293  3 

295  4 

296  4 

297  4 

298  3 

300  4 

301  4 

302  4 

303  3 

305  3 


306  2 

307  2 

309  3 

310  3 

311  3 

312  3 

313  3 

314  3 

315  3 

316  3 

318  4 

319  4 

320  4 

321  3 

322  3 

323  3 

324  2 

325  2 


326  1 

327  2 

328  2 


IF  SIGHT.FLAG  THEN  DO  WHILE  NOT  DONE!  /*  HE  HAVE  A  CHOICE  OF  DAY/NIGHT  SIGHT  «/ 

RESPONSE  =  Oi 
CALL  PRINT (8SIGHT.0); 

RESPONSE  =  CIN? 

CALL  COUT ( RESPONSE ) ! 

CALL  COUT(CARR.RET)! 

CALL  COUT( LINEFEED); 

CALL  COUT( LINE .FEED)! 

IF  (RESPONSE  =  44H>  OR  (RESPONSE  =  64H)  THEN  DO!  /«  UC  OR  LC  *D*  */ 

DONE  =  li 

DAY.SIGHT  si;  /*  USE  DAY  SIGHT  ■/ 

end; 

IF  (RESPONSE  =  4EH)  OR  (RESPONSE  =  6EH)  THEN  DO:  /*  UC  OR  LC  'N1  */ 

DONE  =  i; 

DAY.SIGHT  =  0;  /«  USE  NIGHT  SIGHT  «/ 

end; 

IF  NOT  DONE  THEN  CALL  COUT(BELL) J 

end; 


DONE  =  o; 

IF  TRACK.FLAG  THEN  DO  WHILE  NOT  DONE?  /*  HE  HAVE  A  CHOICE  OF  TRACK  */ 

RESF-ONSE  =  Oi 
CALL  PRINT (8TRACK.Q); 

RESPONSE  =  CIN! 

CALL  COUT< RESPONSE)? 

CALL  C OUT (CARR. RET)! 

CALL  COUT(LINE.FEED); 

CALL  COUT ( LINE.FEED ) » 

IF  (RESPONSE  30H)  AND  (RESPONSE  <  34H)  THEN  DO! 

STARTING.TRACK  =  RESPONSE  -  3QHJ  /i  SELECT  STARTING  TRACK  «/ 

DONE  =  i; 

end; 

ELSE  CALL  COUT (BELL)! 

CALL  TANK.PROG ( BRAISE. MOTOR > SIZE ( RAISE.HOTOR > ) ! 

end; 

CONTINUE  =  i;  /»  USED  TO  SYNCHRONIZE  OPERATIONS  WITH  'DIGITALKER*  */ 
END  TANK.INITi 


TANK.STARTt  PROCEDURE  PUBLIC;  /«  CALL  AFTER  SCREEN  PRESENTATION  COMPLETE  «/ 

CALL  OUTPT('T'); 

CALL  OUTPT( STARTING.TRACK)! 
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329 

2 

IF  TRACK.FLAG  THEN  DO? 

331 

3 

CALL  OUTPUT*)? 

332 

3 

CALL  OUTPT ( ST ARTINC.TRACK ) ; 

333 

3 

end; 

331 

2 

DO  CASE  (SCENARIO); 

335 

3 

CALL  TANK.PROG ( DSCENE.O  t SIZE ( SCENE.O ) ) * 

336 

3 

CALL  TANK.PROG ( 0SCENE. 1 r SIZE ( SCENE. 1 ) ) * 

337 

3 

CALL  TANK.PR0G(?SCENE.2»SIZE<SCENE.2) ) i 

338 

3 

CALL  TANK.PROG  < 8 SCENE.3 i SIZE ( SCENE .3 ) ) i 

339 

3 

CALL  TANK.PROG ( 8SCENE.1 . SIZE( SCENE.1 ) ) ? 

310 

3 

CALL  TANK.PROG ( @SCEME_5f  SIZE ( SCEME.5 ) )i 

311 

3 

CALL  T ANK.PROG ( 8SCENE.6 » SIZE ( SCENE.6 ) ) ; 

312 

3 

end; 

313 

2 

CONTINUE  =  i; 

311 

2 

END  tank.start; 

I  HE  NOH  NISH  TO  STOP  THE  TANKS  IMMEDIATELY  AND  WAIT  FOR  RESET.  i 

iiiiiixxxiiiixxxiiiixiiixixxxxxxxxxxxxxxxxxxiixixiiixxiixxxixixxixixxmiiiiii/ 

315  i  tank.killed:  procedure  public; 

316  2  CALL  OUTPTCR');  /«  RESET  ALL  CY512S  «/ 

317  2  END  TANK.KILLED? 


318  1 


END  toh.start.up.hodule; 


CROSS-REFERENCE  LISTING 


DEFN  AODR  SIZE  NAME,  ATTRIBUTES,  AND  REFERENCES 


J 

A0M3A.CLEAR. 

« 

« 

♦ 

« 

LITERALLY 

J 

ADM3A.M0DE  . 

• 

• 

6 

* 

LITERALLY 

5 

ALPHA.5010.M0DE. 

« 

* 

LITERALLY 

3 

BELL  .... 

• 

• 

• 

• 

LITERALLY 

156 

158 

210 

221 

256 

255 

305 

321 

72 

0002H 

2 

C . 

« 

* 

ft 

• 

HORD 

73 

75 

75 

76 

3 

CARR.RET  .  . 

• 

• 

• 

» 

LITERALLY 

15 

16 

17 

18 

19 

20 

21 

L.L. 

23 

25 

25 

26  27 

28 

29 

30 

31 

32 

33 

35 

35 

36 

37 

38 

3° 

50  52 

313 

95 

125 

185 

215 

217 

223 

235 

255 

252 

255 

257 

2*0 

37 

0987H 

83 

CENTER.PAGE. 

« 

« 

• 

« 

BYTE  ARRAY (83)  DATA 

65 

OOOOH 

1 

CHAR  .... 

ft 

• 

• 

• 

BYTE  BASED  (F'NTR)  ARRAY  ( 1 ) 

66 

67 

55 

OBOEH 

21 

CIN . 

* 

• 

• 

ft 

PROCEDURE  BYTE  STACK=0002H 

120 

136 

203 

213 

253 

288 

311 

5 

CLEAR. ALL.  . 

» 

ft 

• 

• 

LITERALLY 

129 

170 

187 

195 

6 

CNTR2M00E.  . 

• 

• 

5 

• 

LITERALLY 

197 

0E2CH 

COMMENT 1  .  . 

• 

• 

• 

• 

LABEL 

9 

OOOOH 

1 

CONTINUE  .  . 

• 

• 

♦ 

• 

BYTE  EXTERNAL (5 

) 

325 

353 

6 

CONTROL.  .  . 

ft 

• 

• 

• 

LITERALLY 

6 

C0UNTER.2.  . 

• 

• 

ft 

♦ 

LITERALLY 

59 

0623H 

35 

COUT  .... 

• 

• 

• 

• 

PROCEDURE  STACK=0005H 

67 

95 

95 

96 

97 

121 

125 

125 

128  129 

130 

156 

15B 

170 

171 

181 

185 

187 

188 

193 

195 

195 

207  210 

218 

221 

255 

255 

256 

255 

257 

258 

289 

290 

291 

292 

301  312  313  315  315  321 


9 

OOOOH 

1 

DAY.SIGHT ,  . 

• 

• 

* 

ft 

BYTE  EXTERNAL (0) 

296 

301 

15 

0015H 

1 

DONE  .... 

• 

ft 

« 

ft 

BYTE  283  285  295  300 

303 

306 

9 

OOOOH 

1 

EAST.HEST .  . 

• 

ft 

♦ 

ft 

BYTE  EXTERNAL! 5) 

259 

9 

OOOOH 

1 

FINAL.TRACK. 

♦ 

• 

* 

ft 

BYTE  EXTERNALS 

260 

36 

0952H 

53 

FIRST.PAGE  . 

» 

» 

* 

ft 

BYTE  ARRAY (53)  DATA 

261 

OFDAH 

FLAG.SET  .  . 

* 

♦ 

« 

ft 

LABEL 

262 

0FE7H 

FLAG.SET.O  . 

• 

• 

* 

ft 

LABEL 

265 

0FE7H 

FLAG.SET. 1  . 

♦ 

« 

« 

ft 

LABEL 

267 

OFEEH 

FLAG.SET.2  . 

• 

• 

• 

ft 

LABEL 

270 

OFEEH 

FLAG.SET.3  . 

ft 

• 

« 

ft 

LABEL 

273 

0FF9H 

FLAG.SET.5  . 

• 

• 

ft 

ft 

LABEL 

276 

0FF9H 

FLAG.SET.5  . 

« 

« 

• 

ft 

LABEL 

279 

0FF9H 

FLAG.SET.6  , 

• 

• 

• 

ft 

LABEL 

39 

0A13H 

50 

FOO . 

• 

* 

ft 

ft 

BYTE  ARRAY (50)  DATA 

252 

26 

056AH 

55 

FOO.BAH.  .  . 

• 

ft 

• 

ft 

BYTE  ARRAY (55)  DATA 

253 

200 

0E5CH 

GET.ITEH  .  . 

« 

ft 

• 

ft 

LABEL 

117 

0C81H 

382 

GIVE .MENU.  . 

* 

• 

♦ 

ft 

PROCEDURE  STACK=0015H 

198 

258 

22 

05E7H 

26 

GO.HOME .  .  . 

• 

9 

• 

ft 

BYTE  ARRAY (26)  DATA 

85 

10 

0005H 

1 

GO.NOW  .  .  . 

♦ 

♦ 

» 

ft 

BYTE  199  229  235  252 

253 

255 

5 

CRAPHICS.CLEAR 

ft 

♦ 

ft 

LITERALLY 

25 

0557H 

35 

HELLO,  .  .  . 

♦ 

♦ 

ft 

ft 

BYTE  ARRAY (35)  DATA 

197 

27 

05A0H 

26 

HELLG.CON.  . 

* 

* 

ft 

ft 

BYTE  ARRAY (26)  DATA 

lie 

J 

HOME. CURSOR, 

» 

• 

ft 

ft 

LITERALLY  130  171  188 

195 

10 

0009H 

1 

I . 

• 

• 

ft 

ft 

BYTE  80  81  82  85 

98 

99 

63 

OOOOH 

2 

I . 

• 

ft 

ft 

ft 

HORD  65  66  67  68 

INPUT,  .  ,  . 

• 

• 

ft 

ft 

BUILTIN  55  57  51 

5 

IOOATA  .  .  . 

* 

• 

• 

l 

LITERALLY  57  53 

IOSTATUS 


LITERALLY 


72 

OOOOH 

1 

ITEM  .  .  .  . 

« 

*  4 

* 

BYTE  BASED (PROG.PTR)  ARRAY(l) 

75 

19 

0001H 

1 

ITEM  .  .  .  . 

* 

*  * 

* 

BYTE  PARAMETER  AUTOMATIC 

50 

53 

28 

058AH 

58 

ITEM.l  .  .  . 

« 

4  * 

4 

BYTE  ARRAY (58)  DATA 

13 

29 

05F1H 

111 

ITEM.2  .  .  . 

• 

4  * 

4 

BYTE  ARRAY (111)  DATA 

13 

30 

068 1H 

213 

ITEM.3  .  .  . 

• 

4  4 

4 

BYTE  ARRAY ( 213 )  DATA 

13 

31 

0771H 

163 

ITEM.l  .  .  . 

* 

*  * 

* 

BYTE  ARRAY (163)  DATA 

13 

32 

0817H 

130 

ITEM.5  .  .  . 

t 

*  1 

4 

BYTE  ARRAY (130)  DATA 

13 

33 

0899H 

115 

ITEM.6  .  .  . 

4 

*  * 

* 

BYTE  ARRAY (115)  DATA 

13 

13 

OOOOH 

21 

ITEM.PTRS.l. 

4 

4  4 

4 

POINTER  ARRAY (6)  DATA 

99 

100 

38 

09DAH 

57 

LAST.PAGE.  . 

* 

*  4 

* 

BYTE  ARRAY (57)  DATA 

71 

0001H 

2 

LENGT.  .  .  . 

» 

4  * 

* 

WORD  PARAMETER  AUTOMATIC 

72 

71 

LENGTH  .  .  . 

* 

4  4 

* 

6UILTIN  99 

8 

LINEFEED.  . 

• 

*  * 

4 

LITERALLY  25  26 

27 

28 

29 

30 

36  37  38  39  10 

311  315 

12 

96 

97 

125 

66 

0B71H 

LOOP  .... 

* 

*  * 

* 

LABEL 

21 

0523H 

36 

LOHER.MOTOR. 

4 

*  * 

4 

BYTE  ARRAY (36)  DATA 

89 

1 

MASK  .... 

* 

4  * 

4 

LITERALLY  17 

L 

MAX.MENU.NO. 

» 

4  4 

* 

LITERALLY  139 

123 

OCBOH 

MENU  .  .  .  . 

♦ 

4  4 

* 

LABEL 

91 

0C01H 

83 

MENU.l  .  .  . 

* 

4  * 

* 

PROCEDURE  STACK=0010H 

132 

171 

105 

0C59H 

10 

MENU.2  .  .  . 

♦ 

*  * 

* 

PROCEDURE  STACK=0002H 

175 

108 

0C63H 

10 

MENU. 3  .  .  . 

♦ 

*  * 

* 

PROCEDURE  STACK=0002H 

176 

111 

0C6DH 

10 

MENU.l  .  .  . 

« 

*  * 

4 

PROCEDURE  STACK=0002H 

177 

111 

0C77H 

10 

MENU.5  .  .  . 

* 

*  * 

* 

PROCEDURE  STACK=0002H 

178 

10 

0007H 

1 

MENU.DONE .  . 

• 

4  4 

4 

BYTE  126  133  163 

166 

10 

0 006H 

1 

NENU.NO.  .  . 

4 

*  4 

4 

BYTE  127  139  111 

151 

153 

173 

11 

0015H 

1 

OK  «  «  •  4  • 

4 

*  4 

4 

BYTE  135  112  151 

161 

168 

11 

OOOBH 

1 

OKI*  •  »  •  * 

* 

*  * 

* 

BYTE  199  202  208 

210 

11 

OOOCH 

1 

0K2*  4**4 

• 

*  4 

4 

BYTE  199  212  219 

210 

202 

0E61H 

OK.l  .... 

4 

*  * 

4 

LABEL 

212 

0E96H 

0K_2  .... 

* 

*  4 

* 

LABEL 

56 

0001H 

1 

OUTDATA.  .  . 

4 

*  4 

4 

BYTE  PARAMETER  AUTOMATIC 

57 

60 

56 

0B15H 

38 

OUTPT.  ,  .  , 

4 

4  * 

4 

PROCEDURE  STACK=0001H 

75 

83 

81 

332  316 

OUTPUT  ,  .  . 

4 

4  * 

4 

BUILTIN  53 

31 

092AH 

12 

PAGE.COMMENT 

* 

4  * 

* 

BYTE  ARRAY! 12)  DATA 

93 

62 

0001H 

1 

PNTR  .... 

* 

4  * 

4 

POINTER  PARAMETER  AUTOMATIC 

61 

66 

10 

OOOAH 

1 

PREUIOUS.RESPONSE. 

4 

BYTE  199  211  217 

62 

0B6BH 

38 

PRINT.  .  .  . 

* 

4  * 

4 

PROCEDURE  STACK=OOOCH 

93 

100 

103 

287  310 

71 

0006H 

1 

PROG.PTR  .  . 

4 

*  * 

* 

POINTER  PARAMETER  AUTOMATIC 

72 

75 

57 

F002H 

1 

P.OATA  .  .  . 

4 

4  * 

* 

BYTE  AT  ABSOLUTE 

60 

23 

0501H 

31 

RAISE.MOTOR. 

4 

*  4 

* 

BYTE  ARRAY (31)  DATA 

322 

10 

0A3BH 

20 

REQUEST.  .  . 

4 

4  * 

4 

BYTE  ARRAY (20)  DATA 

201 

79 

0BB7H 

71 

RESET.MOTORS 

* 

4  4 

4 

PROCEDURE  STACK=0012H 

192 

10 

0001H 

1 

RESPONSE  .  . 

* 

*  4 

4 

BYTE  92  106  109 

112 

115 

119 

120 

161  199  226  232  237 
311  312  316  318 

211 

217 

251 

286 

13 

OOOEH 

1 

RESP.l.ASCII 

4 

4  4 

* 

BYTE  203  201  205 

207 

227 

231 

13 

0010H 

1 

RESP.l.NUM  . 

4 

*  4 

4 

BYTE  201  225  226 

232 

13 

OOOFH 

1 

RESP.2.ASCII 

* 

*  * 

* 

BYTE  213  211  215 

217 

218 

223 

228 

13 

001 1H 

1 

RESP.2.NUM  . 

4 

*  4 

* 

BYTE  211  226 

11 

0016H 

1 

SAME  ...  . 

4 

*  4 

4 

BYTE  131  115  157 

167 

10 

0008H 

1 

SCENARIO  .  . 

4 

4  * 

* 

BYTE  251  261  331 

83  81  87  88  327  328  331 


100  103  118  197  201  212  213 


12  OOOOH 


SCEMARIO.BUFFER 


BYTE  ARRAY f 9)  EXTERNAL (6' 


228  233  231 


15  0018H 

16  0019H 

17  001DH 

18  011AM 

19  020BH 

20  02DFH 

21  0307H 
2 

6 

11  0012H 
11  OA1FH 
35  0936H 

3 

9  OOOOH 
57  FOOOH 
191  OOFFH 
315  11C6H 
71  0B91H 

326  111CH 
9  OOOOH 

11  OOOOH 
1  OBOEH 

11  0013H 

12  0A8BH 

7 


252  0F8FH 


1  SCENE .0 . 

52  SCENE. 1 . 

205  SCENE. 2 . 

211  SCENE.3 . 

212  SCENE.1 . 

218  SCENE. 5,  . 

272  SCENE. 6 . 

SCENE. COUNT .  .  .  . 

SETCOUNT  . 

SHR . 

1  SIGHT.FLAG  .... 

60  SIGHT.Q . 

28  SINGLE. PAGE.  .  .  . 
SIZE  ....... 

SPACE . 

1  STARTING.TRACK  .  . 

1  STAT.COM  . 

797  TANK.INIT . 

18  TANK .KILLED.  .  .  . 
38  TANK.PROG . 

170  TANK.START  .... 

1  TARGET.SNITCH,  .  . 

TIME . 

1  TOTALY.OK . 

TON.START.UP.MOOULE 
1  TRACK.FLAG  .... 

93  TRACK.Q . 

USART .COMMAND.  .  . 
USART.CONTPOL.  .  . 
USART.MODE  .... 
VECTOR.MODE .  .  .  . 
MAIT.GO . 


BYTE  ARRAY* 1)  DATA  335 

BYTE  ARRAY (52!  DATA  336 

BYTE  ARRAY (205)  DATA  337 

BYTE  ARRAY (211)  DATA  338 

BYTE  ARRAY  (212)  DATA  339 

BYTE  ARRAY <  218 >  DATA  310 

BYTE  ARRAY ( 272 )  DATA  311 

LITERALLY  237 
LITERALLY 

BUILTIN  15  58 

BYTE  259  281 
BYTE  ARRAY (60)  DATA  287 
BYTE  ARRAY (28)  DATA  103 
BUILTIN  85  89  322  335 

LITERALLY  233 

BYTE  EXTERNAL(l)  268  271 

BYTE  AT  ABSOLUTE  58 

PROCEDURE  PUBLIC  STACK=0018H 
PROCEDURE  PUBLIC  STACK=0008H 
PROCEDURE  STACK=OOOEH  85 

310  311 

PROCEDURE  PUBLIC  STACK=0012H 

BYTE  EXTERNAL* 2)  260 

BUILTIN  51  131  172  189 

BYTE  199  200  238 

PROCEDURE  STACK=OOOOH 

BYTE  260  265  307  329 

BYTE  ARRAY (93)  DATA  310 

LITERALLY 

LITERALLY 

LITERALLY 

LITERALLY  128  193 
LABEL 


338  339 


328  332 


MODULE  INFORMATION: 

CODE  AREA  SIZE  =  1 
CONSTANT  AREA  SIZE  =  0 
VARIABLE  AREA  SIZE  =  0 
MAXIMUM  STACK  SIZE  =  0 
652  LINES  READ 
0  PROGRAM  ERROR(S) 

END  OF  PL/M-86  COMPILATION 
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SIS-II  PL/M-86  V2.1  COMPILATION  OF  MODULE  MAT.GRAPH 
.1JECT  MODULE  PLACED  IN  !F2! GRAPH. OBJ 

OMPILER  INVOKED  BY!  PLH86  !F2!GRAPH.PLM  DEBUG  LARGE  0PTIHIZE(3)  ROM  HORKFILES  ( IF2t » :F2t) 

1  MAT.GRAPH:  DO! 

2  1  DECLARE  XREG  LITERALLY  '14H', 

YREG  LITERALLY  '16H'. 

GSCALE  LITERALLY  '10HS 
SCROLL  LITERALLY  * 12H1 » 

FLAGS  LITERALLY  '12H', 

ERASE  LITERALLY  '  14H'  ! 

3  1  DECLARE  (XREG.DATAf  YREG.DATAt  GSCALE.VAL)  BYTE  PUBLIC! 

A  1  DECLARE  ( YANG.BYTE » ZANG.BYTE )  BYTE  PUBLIC! 

5  1  DECLARE  BIT.BUCKET  BYTE! 

6  1  DECLARE  ( XMIN » YMIN  f  XMIN.TMP i XMAX.TMP i YMIN. TMP )  INTEGER! 

7  1  DECLARE  ( SIZ  *  HALF.SIZ  f  YANG. SCALED  <  ZANG.SCALED » YMAX  ?  XMAX  > TMP t 

THP.WRD i ONE.THIRD » TWO.THIRDS )  INTEGER  PUBLIC! 

8  1  DECLARE  ( Y ANG.BIRD • ZANG.BIRO )  INTEGER  EXTERNAL! 

/ixxxixxiixxxxxxxkxxxixxxxxixixiiiixxixxxiixiiiiiiixxxixxxiixxxxi 

MAT.OUT  OUTPUTS  AN  X»Y» GSCALE.VAL  TO  THE 
MATROX  GRAPHICS  UNIT. 

IXXXXlXXlIXXIXXXXIXXIXXIXXXXXXXlXlIXXXXXXXXlXXIIlimXXXIXXIXIXIX/ 

0  1  MAT.OUT!  PROCEDURE  PUBLIC! 

10  2  OUTPUT  ( XREG )  =  LON ( UNSIGN ( XMIN.TMP! ) ! 

11  2  OUTPUT  (YREG)  =  LOW( UNSIGN ( YMIN) ) ! 

12  2  OUTPUT  (GSCALE)  =  GSCALE.VAL! 

13  2  END  MAT.OUT: 

14  1  LINE!  PROCEDURE  PUBLIC! 

15  2  IF  YMIN  0  AND  YMIN  <=  255D  THEN  DO! 

17  3  DO  WHILE  XMAX.TMP  >=  XMIN.TMP! 

18  4  IF  XMIN.TMP  "=  0  AND  XMIN.TMP  <=  255  THEN  CALL  MAT.OUT! 

20  4  XMIN.TMP  =  XMIN.TMP  +  1! 

21  4  end; 

22  3  END! 

23  2  END  LINE! 

24  1  MATROX. START.UF!  PROCEDURE  PUBLIC! 


25  2  OUTPUT  (SCROLL)  =  0! 

26  2  OUTPUT  (GSCALE)  =  0! 

27  2  BIT.BUCKET  =  INPUT  (ERASE)!  /iINITIATE  ERASE  CYCLE*/ 

28  2  DO  WHILE  (NOT (INPUT (FLAGS)))!  /i  WAIT  TILL  MATROX  IS  FINISHED  ERASING  H 

29  3  END! 

30  2  END  MATROX.START.UP! 


31  1  MATROX. DRAW:  PROCEDURE  PUBLIC! 

32  2  YANG.SCALED  =YA»G_BIRD!  /x  HAS  YANG.BIRD  /  4  1/ 

33  2  ZANG. SCALED  =ZANG.BIRD!  /x  HAS  ZANG.BIRD  /  4  x/ 


-•  v 

34 

2 

YANG.BYTE  =  LON  <  UNSIGN i Y  ANG. SCALED 

\*V' 

35 

2 

ZANgIbVTE  =  LON ( UNSIGN ( ZANG.SCALED 

% 

36 

0 

L. 

HALF.SIZ  =  SIZ/25 

r_  -* 

r.V 

37 

2 

XMIN  =  (1270  ♦  YANG.SCALED)  -  HALF 

r"  V 

38 

2 

THIN  =  <1270  ♦  ZANG.SCALED)  -  HALF 

r_V 
r.  V 

39 

2 

XMAX  *  <127D  ♦  YANG.SCALED)  +  HALF 

r.'* 

10 

2 

YMAX  *  (127D  +  ZANG.SCALED)  ♦  HALF 

B 

41 

2 

TW>  *  SIZ/3 ; 

12 

2 

ONE.THIRD  =  YMIN  +  THP! 

13 

2 

TNO.THIRDS  =  YMIN  +  (TMP  *2)! 

■ .  -* 

44 

L 

DO  WHILE  YMIN  <=  ONE.THIRD! 

45 

3 

THP.WRD  =  ONE.THIRD  -  YMIN! 

m 

46 

3 

XMIN.TMP  =  TMP.NRD  +  XMIN! 

41 

3 

XMAX.TMP  =  XMAX  -  TMP.NRD! 

18 

3 

CALL  LINE! 

49 

3 

YMIN  =  YMIN  +  1! 

50 

3 

END! 

i* 

51 

2 

DO  WHILE  YMIN  <=  TWO.THIRDS! 

;%■. 

52 

3 

XMIN.TMP  =  XMIN! 

* 

\V 

53 

3 

XMAX.TMP  =  XMAX! 

54 

3 

CALL  LINE! 

55 

3 

YMIN  =  YMIN  «■  1! 

% 

56 

3 

END! 

m 

5  ■ 

i 

DO  WHILE  YMIN  <=  YMAX! 

58 

3 

TMP.NRD  =  YMIN  -  TWO.THIRDS! 

59 

3 

XMIN.TMP  =  TMP.WRD  +  XMIN! 

60 

3 

XMAX.TMP  =  XMAX  -  TMP.WRD! 

61 

3 

CALL  LINE: 

RB 

62 

3 

YMIN  =  YMIN  +  1! 

i",  •> 

63 

3 

end; 

61 

2 

END  MATROX. DRAW! 

,‘.V 

65 

1 

END! 

module  information: 

CODE  AREA  SIZE  =  0 
CONSTANT  AREA  SIZE  =  0 
VARIABLE  AREA  SIZE  =  0 
MAXIMUM  STACK  SIZE  =  0 
89  LINES  READ 
0  PROGRAM  ERROR( S) 

END  OF  PL/M-86  COMPILATION 


-\VN  •  \i 
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ISIS-II  PL/M-86  V2.1  COMPILATION  OF  MODULE  SMOKE 
OBJECT  MODULE  PLACED  IN  I F2 1  SMOKE. OBJ 

COMPILER  INVOKED  BY  I  PLM86  IFZISMOKE.PLM  DEBUG  LARGE  OPTIMIZEO)  ROM  WORKFILES  ( tF2t  f  tF2t ) 


1  smoke:  do; 

2  1  DECLARE  (SERIES.NO.  DONE-  BACKGROUND.  PATH)  BYTE  PUBLIC; 

3  1  DECLARE  FLAGS  LITERALLY  ,12H‘5 

9  1  DECLARE  GSCALE  LITERALLY  'lOH'f 

5  1  DECLARE  ( GSCALE.VAL » DAT  A.RDYl .BIRD.DT.RDY » V.REF.FL AG » H.REP.FLAG )  BYTE  EXTERNAL! 

6  1  DECLARE  (SAVE.YANG.BIRD.  SAVE.ZANG.BIRD)  INTEGER  PUBLIC! 

7  1  DECLARE  SIZ  INTEGER  EXTERNAL! 

8  1  DECLARE  SAVE.SIZ  INTEGER! 

9  1  DECLARE  (SAME.NEH.YANG.BIRD.SAVE_NEH.ZANG.BIRDfSAVE_NEH.SIZ)  INTEGER! 

10  1  DECLARE  (DISTANCE)  HORD  EXTERNAL! 

11  1  DECLARE  (YANG_BIRD.ZANG.BIRD)  INTEGER  EXTERNAL! 

12  1  DECLARE  ERASE  LITERALLY  * 14H 1 ! 

13  1  DECLARE  COUNT.DOHN  BYTE! 

19  1  DECLARE  COUNT. OOHN.INIT.VAL  LITERALLY  '5'! 

is  i  matroy.drah:  procedure  externai  ; 

16  2  END  MATROX.DRAH! 


it  i  output.smoke:  procedure; 

18  2  DECLARE  BIT.BUCKET  BYTE! 

19  2  OUTPUT  (GSCALE)  =  BACKGROUND! 

20  2  BIT .BUCKET-  INPUT  (ERASE)! 

21  2  END  OUTPUT.SMOKE! 


22  1  GET.GV_AND.SIZ:  PROCEDURE  PUBLIC! 

23  2  IF  DISTANCE  <=  300D  THEN  DO!  /«  HAS  500  if 

25  3  SIZ  =  100! 

2o  3  GSCALE. VAL  =  15D! 

27  3  GOTO  SKIP! 

28  3  END! 

29  2  IF  DISTANCE  ;  300D  AND  DISTANCE  <=  900D  THEN  DO! 

31  3  SIZ  =  9D! 

32  3  GSCALE.VAL  =  15D! 

33  3  GOTO  SKIP! 

39  3  END! 

35  2  IF  DISTANCE  >  900D  AND  DISTANCE  O  5000  THEN  DO! 

37  3  SIZ  =  8D! 

38  3  GSCALE.VAL  =  150! 

39  3  GOTO  SKIP! 

90  3  END! 

91  2  IF  DISTANCE  >  5000  AND  DISTANCE  <=  600D  THEN  DO! 

93  3  SIZ  =  7D! 

99  3  GSCALE.VAL  =  150! 


15  3  GOTO  skip; 

16  3  end; 

17  2  IF  DISTANCE  >  6000  AND  DISTANCE  <=  7000  THEN  DO! 

19  3  SIZ  =  60; 

50  3  GSCALE.VAL  =  15D! 

51  3  GOTO  SKIP! 

52  3  end; 

53  2  IF  DISTANCE  >  7000  AND  DISTANCE  <«  900D  THEN  DO! 

55  3  SIZ  =  5D; 

56  3  GSCALE.VAL  =150? 

57  3  GOTO  SKIP! 

58  3  end; 

59  2  IF  DISTANCE  >  900D  AND  DISTANCE  <=  1000D  THEN  DOJ 

61  3  SIZ  =  ID! 

62  3  GSCALE.VAL  =  I5D5 

63  3  GOTO  SKIP! 

61  3  end; 

65  2  IF  DISTANCE  >  1000D  AND  DISTANCE  <=  1100D  THEN  DO.* 

67  3  SIZ  =3D! 

68  3  GSCALE.VAL  =  15D! 

69  3  GOTO  SKIP; 

70  3  end; 

71  2  IF  DISTANCE  >  1100D  AND  DISTANCE  <»  1200D  THEN  DO! 

73  3  SIZ  =  2D! 

71  3  GSCALE.VAL  =  150! 

75  3  GOTO  SKIP! 

76  3  end; 

77  2  IF  DISTANCE  >  1200D  AND  DISTANCE  <«  1300D  THEN  DO! 

79  3  SIZ  =  ID! 

80  3  GSCALE.VAL  =  150* 

81  3  GOTO  SKIP! 

82  3  end; 

83  2  IF  DISTANCE  >  1300D  THEN  GSCALE.VAL  =  150$ 

/iixxxxxxxixxixxxxxxixxxxxxixxixixiixxxxxxxxixxiiiixixxxxix 

IF  DISTANCE  >  HOOD  AND  DISTANCE  <■  1500D  THEN  GSCALE.VAL  =  100! 

IF  DISTANCE  ;  15000  AND  DISTANCE  <=  16000  THEN  GSCALE.VAL  =  9! 

IF  DISTANCE  '  16000  AND  DISTANCE  <=  1700D  THEN  GSCALE.VAL  =  8i 

IF  DISTANCE  >  17000  AND  DISTANCE  <>  1800D  THEN  GSCALE.VAL  =  7! 

IF  DISTANCE  >  18000  AND  DISTANCE  <=  19000  THEN  GSCALE.VAL  =  6! 

IF  DISTANCE  >  19000  AND  DISTANCE  <=  2000D  THEN  GSCALE.VAL  =  5! 

IF  DISTANCE  >  2000D  AND  DISTANCE  <=  2100D  THEN  GSCALE.VAL  =  1! 

IF  DISTANCE  >  21000  AND  DISTANCE  O  2200D  THEN  GSCALE.VAL  =  3! 

IF  DISTANCE  >  2200D  AND  DISTANCE  <=■  2300D  THEN  GSCALE.VAL  =  2! 

IF  DISTANCE  >  2300D  AND  DISTANCE  O  2100D  THEN  GSCALE.VAL  =  1 : 

IF  DISTANCE  >  21000  AND  DISTANCE  <=  2500D  THEN  GSCALE.VAL  =  0! 

XXXXIIXXXXXIXXIXXXXXXXXXXXIXXIXXXXIXXXXXIXIXXXXXXXXXIIXXIXXXXXXXXX/ 

85  2  skip:  end; 
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smoke.init:  procedure  public ; 
seriejLno  =  o; 

DONE  =  o; 

BACKGROUND  =  0! 

COUNTDOWN  =  count.dohn.init.val; 
end  smoke.init; 


smoke  :  procedure  public; 


DO  CASE  series.no; 
series.o:  do; 

BACKGROUND  =  BACKGROUND  +  1* 

IF  BACKGROUND  =  15D  THEN  SERIES.NO  *  SERIES.NO  ♦  1? 

end; 

series.i:  do; 

BACKGROUND  =  BACKGROUND  -  15 

IF  BACKGROUND  =  8  THEN  SERIES.NO  =  SERIES.NO  +  1J 

end; 

SERIES.?!  DO! 

BACKGROUND  =  BACKGROUND  +  i; 

IF  BACKGROUND  *  15D  THEN  SERIES.NO  =  SERIES.NO  +  1! 

end; 

SERIES.3!  DO; 

BACKGROUND  =  BACKGROUND  -  1. 

IF  BACKGROUND  *  4  THEN  SERIES.NO  =  SERIES.NO  ♦  li 

end; 

SERIES.*!  DO! 

BACKGROUND  =  BACKGROUND  +  1J 

IF  BACKGROUND  =  8  THEN  SERIES.NO  =  SERIES.NO  ♦  15 

end; 

SERIES.5!  DO! 

BACKGROUND  =  BACKGROUND  -li 

IF  BACKGROUND  =  0  THEN  SERIES.NO  =  SERIES.NO  +1! 

end; 

SERIES.6!  DO! 

BACKGROUND  =  0! 

DONE  =  1! 

end; 


end; 

end; 


octagon.drivep:  procedure  public; 

IF  NOT  (V.REP.FLAG  OR  H.REP.FLAG)  then  do; 
count.dohn  =  count.dohn  -i; 

IF  (NOT  DONE)  OR  (COUNT.DOHN  =  0)  THEN  DO! 


► 

L". 


136 

9 

IF  DONE  THEN 

137 

1 

do; 

138 

5 

GSCALE.VAL  =  BACKGROUND! 

139 

5 

PATH  =  o; 

HO 

5 

SAVE.NEH. YANG.BIRD  =  YANG. BIRD  I 

HI 

J 

SAVE_NEH.ZANG.BIRD  -  ZANG.BIRD ! 

HZ 

J 

SAVE.NEH.SIZ  =  SIZ, 

H3 

5 

YANG.BIRD  =  SAVE.YANG.6IRD; 

HI 

5 

ZANG.BIRD  =  SAVE.ZANG.BIRO: 

H5 

5 

SIZ  =  save.siz; 

H6 

5 

IF  (INPUT (FLAGS))  THEN  CALL  HATROX.DRAW! 

H8 

5 

YANG.BIRD  =  SAVE.NEH. YANG.BIRD! 

H9 

Cj 

ZANG.BIRD  =  SAVE.NEH.ZANG.BIRD; 

150 

5 

SIZ  =  SAVE.NEH.SIZ! 

151 

5 

end; 

152 

IF  DISTANCE  <  100D  THEN  PATH  =  1! 

151 

4 

IF  PATH  =  1  THEN 

155 

do; 

156 

5 

call  snore; 

157 

5 

call  shore; 

158 

5 

IF  (INPUT (FLAGS))  THEN  CALL  OUTPUT. SHORE! 

160 

5 

PATH  =  o; 

161 

5 

end; 

else 

162 

4 

do; 

163 

5 

CALL  GET.GV_AND.SIZ; 

169 

5 

IF  BACKGROUND  >=  GSCALE.VAL  THEN  GSCALE.VAL  =  I 

166 

5 

do  while  not  bird.ot.rdy: 

167 

6 

IF  DATA.RDYl  THEN  RETURN! 

16? 

6 

end; 

170 

5 

SAVE. YANG.BIRD  =  YANG.BIRD! 

171 

e 

J 

SAVE.ZANG.BIRO  =  ZANG.BIRD! 

172 

r 

J 

SAVE.SIZ  =  SIZ! 

173 

5 

IF  (INPUT (FLAGS))  THEN  CALL  HATROX.DRAH! 

175 

5 

PATH  =  1! 

176 

5 

END! 

177 

4 

IF  COUNT.DOWN  =  0  THEN  COUNT  .DOWN  =  COUNTDOWN.: 

17? 

4 

END! 

180 

3 

END! 

181 

2 

END! 

182 

1 

END! 

NODULE  inforhation: 

COOE  AREA  SIZE  =  036FH  87?D 
CONSTANT  AREA  SIZE  =  OOOOH  OD 
VARIABLE  AREA  SIZE  =  0012H  18D 
HAXIHUH  STACK  SIZE  =  OOOAH  10D 
212  LINES  READ 


ISIS-II  PL/M-86  V2.1  COMPILATION  OF  MODULE  CAE 
OBJECT  MODULE  PLACED  IN  IFUGAE.OBJ 

COMPILER  INVOKED  BYJ  PLM86  !F1!GAE.PLM  DEBUG  LARGE  OPTIHIZEO)  ROM  HORKFILES  CFIMFU) 


1  CAE!  do; 

2  1  DECLARE  <START_BIT,B_Y,B_Z,  DATA.RDY 1 >  BAD.HISS  ,  OFFSET _Y,  QFFSET.Z, 

V.REP.FLAG , H.REP.FL AG . DAY.SIGHT TBYTE  EXTERNAL , 

<  YANG.BIRD  , ZANG.BIRD )  INTEGER  EXTERNAL, 

(BIRD.DT.RDY,  BIRD.HITS,  eiRD.MISSES,  H_REP_RQ» 

H.REP.GO , V.REP.RQ  , V.REP.GO  ,  GRND.BIRD,  END. REPRISE »  FELL.SHORT) 

BYTE  EXTERNAL i 

<  H.MISS. ASCII , V.MISS.ASCII > X.MISS. ASCII )  (22)  BYTE  EXTERNAL , 
AUTO.BORESIGHT  BYTE  EXTERNAL* 

DISTANCE  MORD  EXTERNAL* 

FAR.TARGET  BYTE  EXTERNAL! 

3  1  DECLARE  STARTING.TRACK  BYTE  EXTERNAL! 

4  1  DECLARE  ( OFFSET_Y 1 » OFFSET _Y2 r OFFSET_Y3 , OFFSET.Z 1 » 0FFSET.Z2 » 0FFSET_Z3 > 

BYTE  PUBLIC! 

5  1  DECLARE  <NOFFSET_Y1>NOFFSET_Y2»NOFFSET_Y3»NOFFSET_Z1,NOFFSET_Z2,NOFFSET_Z3) 

BYTE  PUBLIC! 

6  1  DECLARE  ALPHA.MODE  (2)  BYTE  DATA  (350,370)! 

7  1  DECLARE  POINT.MOOE  (2)  BYTE  DATA  (350,340)! 

8  1  DECLARE  VECTOfi.MODE  (1)  BYTE  DATA  (350)! 

9  1  DECLARE  ADM3.M0DE  (3)  BYTE  DATA  (350,370,300)! 

10  1  DECLARE  BUFFER  (10!  BYTE! 

11  1  DECLARE  (YCN7,ZCN7>  BYTE  PUBLIC! 

12  1  DECLARE  <GAE_OFFSET,H_X_GRAPHIC_POINT,  H.Y.GRAPHIC.POINT)  WORD! 

13  1  DECLARE  Y_SCALE_FACTOR  LITERALLY  '82D'; 

14  1  DECLARE  PASS  BYTE! 

15  1  DECLARE  FAST  BYTE  PUBLIC! 

16  1  DECLARE  ERR.MSG  <*>  BYTE  DATA  (350,400,1400,500,1230,370, 

1  uiERROR  LIMIT  EXCEEDED!!* 1 , 350 ) ! 


17  1  PRINT!  PROCEDURE  (MESSAGE,  MSG.LENGTH)  EXTERNAL! 

18  2  DECLARE  MESSAGE  POINTER! 

19  2  DECLARE  MSG.LENGTH  WORD! 

20  2  END  PRINT! 

21  1  GAE.INIT!  PROCEDURE  PUBLIC! 

22  2  BUFFER  (0)  *  360! 

23  2  BUFFER  (1)  =  340! 

24  2  BUFFER  (2)  =  3405 

25  2  BUFFER  (3)  «  340! 

26  2  BUFFER  (4)  =  360! 

27  2  BUFFER  (5)  =  360! 

28  2  BUFFER  (6)  =  360! 

29  2  BUFFER  (?)  =  360! 

30  2  BUFFER  (8)  =  360! 

31  2  BUFFER  (9)  =  360! 

32  2  FAST  •  0! 

33  2  OISTANCE  *  0! 
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31 

2 

H.X.GRAPHIC.POINT  =  05 

35 

2 

H.Y.GRAPHIC.POINT  =  05 

36 

2 

BAO.MISS  =  o; 

37 

2 

AUTO.BORESIGHT  =  0,‘ 

38 

n 

L 

end  gae.init; 

39 

1 

GRAPH.GAE5  PROCEDURE  PUBLIC; 

0 

L. 

DECLARE  TEMP  WORD; 

11 

L 

IF  AUTO.BORESIGHT  =  1 

THEN  DO! 

13 

3 

IF  DAY.SIGHT  THEN  DO  CASE  'STARTING.TRACK  AND  03H) 

15 

4 

16 

1 

do; 

17 

5 

OFFSET.Y,  0FFSET.Y1  =  0FFSET.Y1 

+  <100  - 

b.y); 

18 

5 

OFFSET.Z,  0FFSET.Z1  =  0FFSET.Z1 

+  (100  - 

b.z); 

19 

5 

end; 

1 

do; 

51 

5 

OFFSET.Y,  OFFSET. Y2  =  0FFSET.Y2 

+  (100  - 

b.y); 

52 

c 

OFFSET.Z,  0FFSET.Z2  =  0FFSET.Z2 

+  <100  - 

B.z>; 

53 

5 

end; 

51 

1 

do; 

55 

5 

OFFSET.Y,  0FFSET.Y3  =  0FFSET.Y3 

♦  (100  - 

b.y); 

56 

5 

OFFSET.Z,  0FFSET.Z3  =  0FFSET.Z3 

+  (100  - 

b.z); 

57 

5 

end; 

58 

1 

end;  /i  DAY.SIGHT  DO  CASE  */ 

5?  3 

61  1 
62  -1 
63  5 

61  5 

65  5 

66  1 

6'  5 

68  5 

69  5 

70  1 

71  5 

72  5 

73  5 

71  1 


IF  NOT  DAY.SIGHT  THEN  DO  CASE  (STARTING.TRACK  AND  03HH 
DO: 

OFFSET.Y,  NOFFSET.Y1  =  NOFFSET.Y1  ♦  (100  -  B_Y) * 

OFFSET.Z.  NOFFSET.Zl  =  N0FFSET.Z1  ♦  <100  -  B.Z  >5 

end; 

do; 

OFFSET.Y i  N0FFSET.Y2  =  N0FFSET.Y2  ♦  (100  -  B_Y) » 

OFFSET.Z.  N0FFSET.Z2  =  N0FFSET.Z2  ♦  (100  -  B.Z)I 

end; 

do; 

OFFSET.Y,  N0FFSET.Y3  =  N0FFSET.Y3  ♦  (100  -  B_Y)J 

OFFSET.Z,  N0FFSET.Z3  =  N0FFSET.Z3  ♦  (100  -  B_Z>; 

end; 

END;  /i  NIGHT.SIGHT  DO  CASE  */ 


75  3  IF  OFFSET.Y  >=  20  THEN  CALL  PRINT (BERR. MSG,  LENGTH(ERR.MSG)); 

77  3  IF  OFFSET.Z  >*  20  THEN  CALL  PRINT (BERR.HSG,  LENGTH(ERR.MSG)); 


79  3  AUTO.BORESIGHT  =  0! 


80  3  END!  /i  IF  AUTO.BORESIGHT  */ 


61  2  IF  NOT  BAO.MISS  THEN 

82  2  do; 

3  YCNT  =  B.Y; 
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i 

*  <  *  •>* 

If 

jj 

R 

89 

3 

ZCNT  =  B.z; 

85 

3 

end; 

J) 

86 

*> 

L. 

FAST  =  1! 

u 

.y; 

87 

2 

IF  PASS  =  0  THEN  DO; 

y 

i 

89 

3 

TEMP  =  (YCNT  *  79D)  /  200! 

j 
- 1 

P 

90 

3 

IF  YCNT  <'  1000  THEN 

91 

3 

do; 

* « 
► 

• 

t 

92 

1 

H.X.GRAPHIC.POINT  =  (3950  -  TEMP ) 5 

y 

k 

93 

1 

IF  H.REP.FLAG  OP  V.REP.FLAG  THEN  H.X.GRAPHIC.POINT  =  H.X.GRAPHIC.POINT/2 1 

95 

1 

H  X  GRAPHIC  POINT  =  H.X.GRAPHIC.POINT  ♦  GAE.OFFSET; 

N 

*■.  • 
*:■ 

96 

1 

end; 

V 

fX 

97 

3 

else  do; 

A 

-  « 

*  . 

98 

1 

H.X.GRAPHIC.POINT  =  { TEMP  -  3950)! 

\- 

9? 

1 

IF  H.REP.FLAG  OR  V.REP.FLAG  THEN  H.X.GRAPHIC.POINT  =  H.X.GRAPHIC.POINT Hi 

V 

14 

101 

1 

H.X.GRAPHIC.POINT  =  GAE.OFFSET  -  H.X.GRAPHIC.POINT! 

1 

P'-" 

102 

1 

end; 

'» 

t'v. 

t.y 

103 

3 

IF  H.X.GRAPHIC.POINT  >10000  THEN  H.X.GRAPHIC.POINT  =  1000D! 

> 

105 

3 

IF  H.X.GRAPHIC.POINT  <  0  THEN  H.X.GRAPHIC.POINT  =  Oi 

< 

i 

10? 

3 

IF  FAR.TARGET  THEN  H.Y.GRAPHIC.POINT  =  (DISTANCE  ♦  3600'  /  6! 

*  »  * 

109 

3 

ELSE  H.Y.GRAPHIC.POINT  =  (DISTANCE  /  3>  ♦  60D! 

v  ** 

no 

3 

IF  H.Y.GRAPHIC.POINT  >  7790  THEN  H.Y.GRAPHIC.POINT  =  779D5 

112 

3 

end; 

M 

r.  . 

v 

r  v? 

y 

113 

2 

else  do; 

.-I 

’  */  M 

r 

111 

3 

TEMP  =  (ZCNT  i  79D)  /  200! 

F 

115 

3 

IF  ZCNT  <  1000  THEN 

!:< 

|v;: 

116 

3 

do; 

117 

9 

H.X.GRAPHIC.POINT  =  (3950  -  TEMP ' > 

’% 

118 

9 

IF  H.REP.FLAG  OR  V.REP.FLAG  THEN  H.X.GRAPHIC.POINT  *  H.X.GRAPHIC.POINT/2! 

120 

9 

H.X.GRAPHIC.POINT  =  GAE.OFFSET  -  H.X.GRAPHIC.POINT; 

« 

rw*, 

m 

121 

1 

end; 

W 

<\y 

122 

3 

else  do; 

S'.’j 

123 

9 

H.X.GRAPHIC.POINT  =  (TEMP  -  3950)! 

121 

1 

IF  H.REP.FLAG  OR  V.REP.FLAG  THEN  H.X.GRAPHIC.POINT  =  H.X.GRAPHIC.POINT/2 ! 

J 

LA, 

126 

1 

H.X.GRAPHIC.POINT  =  GAE.OFFSET  ♦  H.X.GRAPHIC  POINT; 

127 

1 

end; 

n 

?*•> 

128 

3 

IF  H.X.GRAPHIC.POINT  >10000  THEN  H.X.GRAPHIC.POINT  =  10000! 

130 

3 

IF  H.X.GRAPHIC.POINT  0  THEN  H.X.GRAPHIC  POINT  =  0! 

gi; 

> 

*- 

r .  « . 

150 

r.v/ 
»* .  •  * 

*  • 

vivlrv*-/ 

132  3 

131  3 

135  3 

137  3 


138  2 

139  3 
HO  3 
HI  3 
H2  3 
H3  3 
HI  3 
H5  3 
H6  1 
H7  1 
H8  1 
H9  1 

150  3 

151  1 

152  1 

153  3 

151  2 


155  1 

156  2 

157  3 

159  1 

160  1 


163  1 

161  1 

165  1 

166  1 

167  3 

169  1 

170  1 

171  1 

172  1 

173  1 

171  1 

175  1 

176  1 


179  1 

180  1 


183  1 

181  1 


IF  FAR.TARGET  THEN  H.Y.GRAPHIC.POINT  =  (DISTANCE  +  360D)  /  6» 
ELSE  H.r.GRAPHIC.POINT  =  (DISTANCE  /  3)  ♦  60D! 

IF  H.Y.GRAPHIC.POINT  >  7790  THEN  H.Y.GRAPHIC.POINT  =  77901 
END! 


3101  /*  GO  TO  POINT.MODE*/ 

(SHR  (H.Y.GRAPHIC.POINT *5)  AND  OOOlllllB)  OR  0010000085 
(H.Y.GRAPHIC.POINT  ANO  OOOlllllB)  OR  01100000B5 
(SHR  ( H.X.GRAPHIC.POINT » 5 )  AND  OOOlllllB)  OR  0010000085 
(H.X.GRAPHIC.POINT  AND  000111118)  OR  0100000085 


output:  do; 

BUFFER  (0)  =  3105  /*  GO  TO  POINT.MODE*/ 
BUFFER  (1)  =  (SHR  ( H.Y.GRAPHIC.POINT ,5) 
BUFFER  (2)  =  (H.Y.GRAPHIC.POINT  ANO  000 
BUFFER  (3)  =  (SHR  (H.X.GRAPHIC.POINT, 5) 
BUFFER  (1)  *  (H.X.GRAPHIC.POINT  AND  000 
IF  BAD.MISS  THEN 
D05 

BUFFER  (5)  =  3705  /*  GO  TO  ALPHA  MODE 

BUFFER  (6)  =  5201  /*  SEND  ASTERISK 

CALL  PRINT  (8BUFFER,  7)5 

END! 

ELSE  D05 

CALL  PRINT  (8BUFFER,5)5 

end; 

end; 

end  graph.gae; 


gae.driver:  procedure  public; 


IF  V.REP.FLAG  *  1  THEN  DO! 

GAE.OFFSET  =  675D! 

PASS  «  05 
CALL  GRAPH.GAE5 
GAE.OFFSET  =  300D5 
PASS  =  15 
CALL  graph.gae; 

BAD.MISS  =  05 

end; 

IF  H.REF’.FLAG  =  1  THEN  00; 

GAE.OFFSET  *  67505  /*  THERE  ARE  20  GU’S  PER  METER  DURING  REPRISE  */ 


/i  IN  THE  HORIZONTAL  MISSILE  PLOT  (PASS  O'.  */ 

/*  THERE  ARE  20  GU'S  PER  METER  DURING  REPRISE  */ 
/*  IN  THE  VERTICAL  MISSILE  PLOT  (PASS  1).  */ 


PASS  *  o; 

CALL  GRAPH.GAE! 
GAE.OFFSET  =  225D! 
PASS  =  1! 

CALL  GRAPH.GAE! 

bao.hiss  *  o; 
end; 


IF  NOT  (H.REP.FLAG  OR  V.REP.FLAG »  THEN  DOS 
GAE.OFFSET  »  675D! 

pass  =  o; 

CALL  graph.gae; 

GAE.OFFSET  =  255DI 
PASS  =  i; 

CALL  graph.gae; 


:■  .V."- 


185  4 

186  4 

187  3 

188  2 
18«  1 


BAD.NISS  =  o; 

end; 

end; 

END  GAE.DRIVER; 

end; 


nodule  information: 


code  area  size  =  0 

CONSTANT  AREA  SIZE  =  0 
VARIABLE  AREA  SIZE  =  0 
MAXIMUM  STACK  SIZE  =  0 
227  LINES  REAP 
0  PROGRAM  ERROR(S) 

END  OF  PL/M-86  COMPILATION 


r .v. 

■  S'.'. 

* 

*  * r  .V 

\*+  _ 

:-V\. 

ISIS-II  MCS-86  HACRO  ASSEMBLER  V2.1  ASSEMBLY  OF  MODULE  EXPLOSION 

■?/.V 

OBJECT  MODULE  PLACED  IN 

:fi:exp.obj 

■ ‘.-.V 

ASSEMBLER  INVOKED  BY! 

ASM86  !F1!EXP.SRC  debug 

m 

LOC  OBJ 

LINE 

SOURCE 

1 

NAME  EXPLOSION 

2 

’v‘ 

3 

PUBLIC  HIT_EXPLOSION>GROUND_EXPLQSION>SET.FLG»RESET_FLG 

B 

1 

J 

CGR0UP  GROUP 

CODE 

6 

7 

0ATA.GR0UP 

GROUP 

DGROUP > DATA.FOR.EXP 

8 

ASSUME  CS ! CGROUP  t  OS ! DAT A_ GROUP 

$■ 

7 

10 

OGROUP  SEGMENT  PUBLIC 

'DATA' 

« 

11 

EXTRN  START_BIT!BYTE»  DAT A.RDY1! BYTE r  YANG_BYTE 1 BYTE •  ZANG_BYTE  J  BYTE 

k  / 

— 

12 

DGROUP  ends 

•V*V 

13 

14 

V*V 

15 

— 

16 

data.for.exp 

SEGMENT  PUBLIC  'DATA1 

0014 

17 

XREG 

EOU 

14H 

0016 

18 

YREG 

EQU 

16H 

' 

0010 

19 

GSCALE 

EQU 

10H 

0012 

20 

SCROLL 

EQU 

12M 

i 

) 

.  • .  • 

0012 

21 

FLAGS 

EQU 

12H 

j 

V-* 

0014 

22 

23 

ERASE 

EQU 

14H 

s  >■ 

0000  ’? 

24 

Y.LOC 

DB 

7 

*.v- 

0001  V 

25 

Z.LOC 

DB 

7 

*  *, 

0002  ’? 

26 

Y.LOC.TMP 

DB 

7 

0003  ?’ 

27 

Z.LOC.TMP 

DB 

7 

r  'a* 

0004  ?? 

28 

Y.OOT.TMP 

DB 

9 

■* 

0005  w 

29 

Z.DOT.TMP 

DB 

4 

0006  ” 

30 

OFFSET 1 

DB 

7 

0007  ” 

31 

0FFSET2 

DB 

7 

* 

0008  ?? 

32 

FIRST.TIME 

DB 

7 

V*. 

000?  ” 

33 

GSCALE.VALUE 

DB 

7 

000A  ” 

34 

GRND.EXP 

DB 

7 

■- 

000B  ” 

35 

FRMGRB.FLG 

DB 

7 

a 

— 

36 

DATA.FOR.EXP 

ENOS 

K  /*. 

K* 

37 

».*-.* 

38 

*/•/ 

39 

L  -■  • 

fr 

m 

“  “  ~  " 

40 

41 

CODE  SEGMENT 

PUBLIC 

’CODE' 

2 

0000 

42 

SET.FLG 

PROC  FAR 

.  * ,  • 

0000  IE 

43 

PUSH  DS 

0001  B8— -  R 

44 

MOV  AX » DGROUP 

>:  :• 

0004  8ED8 

45 

MOV  DS»AX 

J 

r  .  •. 

►  0. 

S'; 

0006  C6060B0001  R 

46 

MOV  FRMGRB.FLG rl 

000B  IF 

COOC  CB 

47 

48 

POP  DS 

RET 

U 

*  •% 

49 

SET.FLG 

ENOP 

\ 

50 

.  * 

r  v  - 

f 

153 

-  i 

r.  -*. 

lr.'-  ' 

t”  ,  « 

BPS 

«  j  wW  . 

■:  »’7 :;w\  *  _•  •  ;•*  •  * 

r  V.  *  .■»  »  7 r'  *  :  W-  r-(  ;  r  .  w  .  -  •  *  •  „  ,  .  . 

& 

m  *“  . 

,  ' 

£■: 
r  *» 

LOG  OE.J 

LINE 

SOURCE 

* 

k  .  • 

000D 

51 

RESET.FLG 

PROC  FAR  V 

OOOD  iE 

52 

PUSH  DS  V 

ft 

OOOE  B8 - 

R 

53 

MOV  AX.DGROUF 

l.V 

0011  8ED8 

54 

MOV  DS.A* 

•*> 

0013  C6060B0000 

R 

55 

MOV  frmgrb.flg.o 

k'V 

0018  IF 

56 

POP  DS 

k> 

0019  CB 

5" 

RET 

>•  V* 
L"-  *’ 

58 

RESET  FLG 

ENDP  •' 

b 

59 

001A 

60 

GROUNO.EXPLOSION 

PROC  FAR 

001A  IE 

61 

PUSH  DS 

»  > 

001E  B8-— 

R 

62 

MOV  AX.DGROUP 

00 IE  8ED8 

63 

MOV  DS  ?  AX  ' 

£> 

0020  C6O6OAO0O1 

R 

64 

MOV  GRND.EXP-1 

u 

0025  E81200 

65 

CALL  HIT.EXP  jn 

0028  C6060A0000 

R 

6 1 

MOV  GRND.EXPfO 

k_*.  ■  „ 

0020  IF 

6~ 

pop  ds  v 

».\  . 

002E  CB 

68 

ret 

69 

GROUND.EXPLOSION 

endp 

$ 

*.\  v 

002F 

/u 

71 

HIT.EXRLOSION 

PROC  FAR 

002F  IE 

/  i. 

PUSH  DS 

■  .  m 
-  .  * 
i  ■' 

0030  B8 - 

R 

'3 

MOV  A>  •  DGROUF'  -7 

. 

0033  8ED8 

74 

MOV  DS.AX  S 

t  .  « 

-  _  ^ 
►  ,% 

0035  E80200 

75 

CALL  HIT.EXF  *7 

k  ,*- 

‘  4  " 

0038  IF 

76 

POP  DS  > 

m 

0039  CB 

77 

78 

79 

80 

HIT. EXPLOSION 

RET  li 

ENDP  7 

*'  /• 

;•"/ 

003A 

HIT.EXP  PROC 

NEAR 

003A  C606080001 

R 

81 

MOV 

FIRST.TIME-i 

003F  C606060001 

R 

82 

MOV 

O'-FSETl.l  V 

m 

0044  C6060700Q1 

R 

83 

MOV 

OFFSETS >1  ** 

% . 
•  .  - 

004 c  C60609000F 

R 

84 

MOV 

GSCALE.VALUE.15D 

*  %/* 

004E  E86AOO 

85 

CALL 

GET.X.Y 

/•j-- 

0051  E88000 

36 

CALL 

dram 

— 

0054  803EQB0001 

R 

87 

CMP 

FRMGRB.FLG- 1  ilF  ONE  THEs  HE  ARE  DONE  v 

•"/.- 

0059  745E 

88 

JE 

DONE.HITH.EXP  *  WITH  FRMGRB  EXPLOSION 

t<*. 

005B  E35DOO 

89 

CALL 

GET.X.Y  1  i 

i"*.  • 

005E  8008020003 

R 

90 

ADD 

Y  L0C.TMF.3 

»” .  •' 

0063  8006030000 

R 

91 

ADD 

2  LOC  TMF'.O 

*•> 

0068  £86900 

92 

CALL 

DRAM 

/.  •' 

006B  E84B00 

93 

CALL 

GET.X.r 

006E  802E020003 

R 

94 

SUB 

Y  L0CJMP.3  -.1 

*•. 

0073  8006030000 

R 

95 

ADD 

Z  LOC.TmP.O  J 

0078  E85900 

96 

CALL 

DRAM 

007B  803EOA0001 

R 

97 

CMP 

GRND  EXP.l 

*  .- 

0080  7437 

98 

JE 

DONE  WITH  EXP 

0082  E83600 

99 

CALL 

GET  X.r 

*  .' 

0085  8006020005 

R 

100 

ADD 

Y  LOC  TMF  -5 

008A  8006030005 

R 

101 

ADD 

Z  LOC  TMP.5  H 

008F  E84200 

102 

CALL 

DRAM 

»  .  * 

0092  E82600 

103 

CALL 

GET  X  Y 

►V-- 

0095  802E020005 

R 

104 

SUB 

Y  L0C.TMP.5 

►v-* 

009A  802E030005 

R 

105 

SUB 

Z  LOC  TMP.5 

MV* 

?• 

154 

* 

W jdV W  W.'  kfL’xA-  AJi  .V*  W.* 

loc  of: 

LINE 

SOURCE 

00?F  £83200 

106 

CALL 

DRAM 

00A2  ESI 600 

107 

CALL 

GET.X.Y 

00A5  8006020000 

R 

108 

ADD 

Y.LOC.TMPtO 

OOAA  8006030008 

R 

109 

ADO 

Z.L0C.TMP.8 

OOAF  E82200 

110 

CALL 

DRAW 

0082  603E0A0001 

R 

111 

CMP 

GRND.EXP.l 

OOP7  7900 

112 

JE 

DONE.HITH.EXP 

0089  90 

113 

done.hith.exp: 

NOP 

008A  C3 

in 

RET 

115 

HIT.EXP 

ENOP 

116 

117 

0088 

118 

GET.X.Y 

PROC 

NEAR 

0088  6A360000 

£ 

119 

MOO 

DH.YANG.BYTE 

008F  80360300 

R 

120 

MOV 

Z_LOC.TMP.DH 

00C3  88360500 

R 

121 

MOV 

Z_DQT.TMP.DH 

00C7  8A160000 

E 

122 

MOV 

DL.ZANG.BYTE 

00C8  8816020C 

R 

123 

MOV 

Y.LOC.TMP»DL 

OOCF  88160900 

R 

129 

MOV 

Y.DOT.TMPfDL 

00D3  C3 

125 

RET 

126 

1  77 

GET.X.Y 

ENDP 

00D9 

1 L! 

128 

DRAW 

PROC 

NEAR 

00D9  8A1E0300 

R 

129 

MOV 

BL.Z_LOC.TMP 

00D8  881E0500 

R 

130 

MOV 

Z.D0T.TMP.8L 

OODC  A00200 

R 

131 

MOV 

AL.Y_LOC.TMP 

OODF  A20900 

R 

132 

MOV 

Y.DOT.TMF'rAL 

00E2  E38101 

133 

CALL 

OUTPUT. EXP 

GOES  E89301 

139 

CALL 

DELAY 

135 

00E6  8A1E0500 

R 

136 

DRAH.N.OFFSETi: 

MOV 

BL.Z_DOT.THF 

OOEC  A00900 

R 

137 

MOV 

AL.Y.DOT.TMP 

OOEF  021E0600 

R 

138 

ADD 

E:L  .OFFSET  1 

OOF 3  E87001 

13? 

CALL 

OUTPUT.EXP 

190 

OOFt  803E0A0001 

R 

191 

CMP 

GRND.EXP.l 

OOF 8  790E 

192 

JE 

NOT.HIT 

OOFD  8A1E0500 

R 

193 

MOV 

8L.Z.D0T.TMP 

cioi  mm 

R 

199 

MOV 

AL.Y.DOT.TMP 

0109  2A1E0600 

R 

195 

SUP 

BL.0FFSET1 

0108  E 85801 

196 

CALL 

OUTPUT.EXP 

197 

0108  8A1E0500 

R 

198 

NOT. hit; 

MOV 

BL.Z_DOT.THP 

01  OF  A00900 

R 

199 

MOV 

AL.Y.DOT.TMP 

0112  02060600 

R 

150 

ADD 

AL.0FFSET1 

0116  E89D01 

151 

CALL 

OUTPUT.EXP 

oi i9  mm 

R 

iJi. 

153 

MOV 

AL.Y.DOT.TMP 

011C  8A1E050C 

P 

159 

MOV 

BL.Z_DOT.TMP 

0120  2A060600 

R 

155 

SUP 

AL .OFFSET 1 

0129  E83F91 

156 

1  e“* 

CALL 

OUTPUT.EXP 

0127  A00900 

R 

1  J 

158 

MOV 

AL.Y.DOT.TMP 

012A  8A1E0500 

R 

159 

MOV 

BL.Z_DOT.TMP 

012E  02060600 

R 

160 

ADD 

AL .  OFFSET  1 

» (X» Y+0FF5ET1 ) 

; SKIP  THIS  IF  GROUND  EXPLOSION 


J ( X»  V-OFFSET 1 > 


KX+OFFSET1.Y) 


I  ( X-OFF  SET  1  *  Y  > 


r  V  \ 


L0C  OBJ 


0132  021E0600 
0136  E82D01 

0139  8O3E0AOOO1 
013E  7424 
OHO  8A1E0500 
0144  A00400 
0147  2 A 1 E 0600 
0148  02060600 
014F  E81401 

0152  A00400 
0155  8A1E0500 
0159  2A060600 
0150  ZA1E0600 
0161  E80201 

0164  8A1E0500 
0168  A00400 
0168  021E0600 
01 6F  2A060600 

or?  E8F000 

017 6  E80201 
017°  FE060600 
oro  803E0o000A 
0182  *624 
0184  803E080001 

0189  741A 
0186  C606080001 
0190  C6060°0000 
0H5  A00400 
0198  8A1E050C 
019C  E8C*00 
019F  E8D900 
01A2  EB0790 
01A5  E96000 
01A8  E93DF8 

01A6  8A1E0500 
01AF  A00400 
0162  021E0700 
0186  A00400 
0169  E6AA00 
016C  8A1E0500 
OICO  A00400 
01C3  2A1EO70O 
OlC’  E89C00 
01CA  3A1E0500 
01CE  A0040C 
0101  02060700 
0105  E88E00 
0108  A00400 
0106  8A1E0500 


N0T.HIT21 


BL » OFFSET  1 
OUTFUT_Eyp 

GRND.EXF'.l 

N0T.HIT2 

6L.Z_D0T.TMP 

AL.Y_D0T.TMP 

BL  *  OFFSET  1 

AL » OFFSET 1 

OUTPUT.EXP 

AL.Y_D0T.THP 
6L.Z_D0T.TMP 
AL  r  OFFSET 1 
BL • OFFSET  1 
OUTPUT.EXP 

6L.I_0GT.THP 
AL.Y_DOT.THP 
BL'OFFSETl 
AL  •  OFFSET  1 
OUTPUT  EXP 


? (X+0FFSET1 tY+OFFSET  1 ) 


1  SKIP  IF  GROUND  EXPLOSION 


t ( X+OFFSETl » Y-OFFSET 1 > 


1 (X-0FFSET1 iY-OFFSETI) 


» ( X-OFFSET 1 r  Y+0FFSET1 > 


DELAY 
0FFSET1 
OFFSET  MOD 
S.DRAW.W.OFFSETl 
FRHGR6.FLG*!  1 


.’CHECK  TO  SEE  IF  WE'RE  IN  THE 
.FRAME  GRABBING  NODE 


S. GO. BACK!  JMF  G0.6ACK 

S.ORAW.W.OFFSETll  JMF'  DRAU.W.OFFSETl 


S. GO. BACK 
FIRST.TIHE • 1 

GSCALE.VALUE.O  1SET  DATA  LEVEL  TO  BLACK 

AL.Y_DOT.TMP 

BL.Z_DOT.TMP 

OUTPUT. EXP 

DELAY 

DRAW.W.0FFSET2 

G0.6ACK 


DRAW.W.0FFSETZ1  nO'J 
MOV 


BL'Z.DOT.TMP 
AL.Y_D0T.TMP 
BL> OFFSET? 
AL.Y_D0T.TMP 
OUTPUT. EXP 
BL'Z.DOT.TMP 
ALfY.DOT.TMP 
6L. OFF SET  2 
OUTPUT. EXP 
PL  » 7. DOT. TUP 
AL.Y_DOT.TMP 
AL .  0FFSET2 
OL'TPUT.EXF 
AL-Y.DOT.TMP 
6L.2  DOT  TMP 


!  iX.Y+0FFSET2) 


-  >  . Y-0FFSET2 1 


;  <  x+offset: , y i 


l 


’>  >  P 


K  \T  ’t" 


T^r 


LOC  OBJ 


LINE 


SOURCE 


010F  2A060700 

R 

216 

SUB 

AL,  OFFSET! 

01E3  E 88000 

217 

CALL 

OUTPUT  .EXF'  J  (X 

01E6  A0&90G 

R 

218 

MOV 

AL.Y.DOT.TMP 

01E9  8A1E0500 

R 

219 

MOV 

BLiZ.DOT.TMP 

01E0  02060700 

R 

220 

ADD 

AL.OFFSET2 

01  FI  021 £0700 

R 

221 

ADD 

BL. OFFSET! 

01F5  E86E0O 

222 

CALL 

OUTPUT .EXP  ;<x 

01F8  8A1E0500 

R 

223 

MOV 

BL.Z_DOT.TMF 

01FC  AOO9O0 

R 

229 

MOV 

AL.Y.DOT.TMP 

01FF  2A1E070 0 

R 

225 

SUB 

BL, OFFSET 2 

0203  02060700 

R 

226 

ADD 

AL .OFFSET! 

020 7  EfSCOO 

227 

CALL 

OUTPUT. EXF  MX 

020A  A0090G 

R 

228 

MOV 

AL.Y.DOT.TMP 

0200  8A1E0500 

R 

229 

NOV 

B'L.Z.DOT.TNP 

0211  2A060700 

R 

230 

SUB 

AL- OFFSET! 

0215  2A1E0700 

R 

231 

SUB 

BL. OFF SET 2 

0219  E89A00 

232 

CALL 

OUTPUT. EXP  ;  (X 

021C  8A1E0500 

R 

233 

MOV 

BL.Z_DOT.THP 

0220  A00400 

R 

239 

MOV 

AL.Y.DOT.TMP 

0223  021E0700 

R 

235 

ADD 

BL. OFFSET! 

0227  2A06070C 

R 

236 

SUB 

AL. OFFSET! 

0228  E83800 

237 

CALL 

OUTF'UT.EXF  MX 

022E  E89A0' 

238 

CALL 

DELAY 

023!  FE060700 

R 

239 

INC 

OFFSET! 

02 2 j  803E080001 

R 

290 

CMP 

FIRST. TIME. 1 

023A  7508 

291 

JNE 

GO.ON 

023C  C606080000 

R 

292 

NOV 

FIRST. TINE.O 

0291  EQ67FF 

293 

JNP 

DRAW.W.0FF5ET2 

0299  C606080001 

R 

299 

go.on: 

MOV 

FIRST.TIME* 1 

0299  C60609000F 

R 

295 

MOV 

GSCALE.VALUE.15D 

029E  803E070019 

R 

296 

CMP 

OFFSET!. 200 

0253  7^03 

297 

JA 

GO  ..BAD' 

0255  EB0C90 

298 

JMP 

DRAW.H.0FFSET1.S 

0258  C606060001 

R 

299 

go.back: 

MOV 

OFFSET M 

0250  C606070001 

R 

250 

MOV 

OFFSET!, 1 

02&2  C? 

251 

RET 

0263  E982FE 

252 

DRAW.N.0FFSET1. 

.s:  jmp 

DRAW.W.0FFSET1 

253 

DRAW 

ENDP 

259 

02  66 

255 

OUTF'UT.EXF' 

PROC 

NEAR 

0266  BIFF 

256 

MOV 

CL.255D 

0268  ZACB 

257 

SUB 

CL.BL 

026A  8A09 

258 

MOV 

BL ,  CL 

026C  BA0800 

259 

MOV 

DX.0D8H 

02fcF  E619 

260 

OUT 

XREG.AL 

02 7 1  8AC3 

261 

NOV 

AL.BL 

0273  E616 

262 

OUT 

YREG.AL 

02^5  A00°00 

R 

263 

MOV 

AL.GSCALE.VALUE 

0278  E610 

269 

OUT 

GSCALE.AL 

027A  C3 

265 

RET 

266 

OUTPUT. EXP 

ENDP 

Cbf 

268 

027B 

269 

DELAY 

PROC 

NEAR 

027B  B9E803 

270 

NOV 

CX.1000D 

(X-0FFSET2*Y) 


;  (X+OFFSET2.Y+OFFSET2) 


(X+QFFSET2, !-QFFSET2' 


» ( X-0FFSET2 » Y-0FFSET2  > 


( X-0FFSET2 • Y+0FFSET2  > 


iSETS  DATA  LEVEL  TO  WHITE 


157 


ISIS-II  PL/M-86  V2.1  COMPILATION  OF  MODULE  TOH.ALSO 
OBJECT  HOOULE  PLACED  IN  JFl JRETROP . OBJ 

COMPILER  INVOKED  BY!  PLM86  !F15RETROP.PLM  DEBUG  LARGE  OPTIMIZE(2)  ROM 


♦TITLE  CPLM86  PROCEDURE  TO  PRINT  GRAPHS’) 

1  TON. ALSO!  DO! 

2  1  DECLARE  USARTDATA  LITERALLY  'OODCH'** 

3  1  DECLARE  USARTSTAT  LITERALLY  ’OODEH'! 

4  1  DECLARE  FAST  BYTE  EXTERNAL* 

51  CO!  PROCEDURE  (CHAR)! 

6  2  DECLARE  CHAR  BYTE! 

7  2  DO  HHILE  NOT  INPUT  (USARTSTAT)* 

8  3  end; 

9  2  OUTPUT  (USARTDATA)  =  CHAR! 

10  2  END  CO! 

11  1  PRINT:  PROCEDURE  (MESSAGEPTR. LENGTH)  public; 

12  2  DECLARE  MESSAGEF'TR  POINTER*  LENGTH  WORD*  I  WORD* 

OUTARRAY  BASED  MESSAGEF'TR  (1)  BYTE! 

13  2  DO  1=  0  TO  LENGTH  -1* 

H  3  CALL  CO ( OUTARF-AY  ( I ) )  * 

15  3  IF  NOT  FAST  THEN  CALL  TIME  (15)  i 

17  3  END! 

18  2  END  PRINT! 

19  1  END! 


MODULE  INFORMATION! 

CODE  AREA  SIZE  =  0068H  1040 

CONSTANT  AREA  SIZE  -  OOOOH  OD 

VARIABLE  AREA  SIZE  =  0002H  2D 

MAXIMUM  STACK  SIZE  =  OOOEH  HD 

26  LINES  READ 
0  PROGRAM  ERROR (S) 


END  OF  PL/H-86  COMPILATION 


ISIS-II  PL/M-86  V2.1  COMPILATION  OF  MODULE  KEYBOARO.IO 
OBJECT  MODULE  PLACED  IN  TF2 5 MATROX. OBJ 

COMPILER  INVOKED  BY!  PLM86  !F2! MATROX. PLM  DEBUG  LARGE  OPTIMI2EO)  ROM  HORKFILES  (:F2:,:F21) 


1  KEYBOARO.IO :  DO: 

2  1  DECLARE  (START.BIT •  B_Y,B_Z,DATA_RDY1,BAD_MISS,0FFSET_Y,QFFSET_Z' 

BYTE  PUBLIC  AT  (06000H) ; 

3  1  DECLARE  <DAY_SIGHT.FAR_TARGET,AUTO_BORESIGHT)  BYTE  PUBLIC  AT  (06007H) » 

DISTANCE  WORD  PUBLIC  AT  (0600AH), 

(STARTING.TRACK.TARGET.SHITCH.FINAL_TRACH.EAST.UEST>  BYTE  PUBLIC  AT  (600CH) 

4  1  DECLARE  YANG.BIRD  INTEGER  PUBLIC  AT  <06010H>! 

5  1  DECLARE  ZANG.BIRD  INTEGER  PUBLIC  AT  (06012H)! 

6  1  DECLARE  (BIRD.DT.RDY,  COACH.ON.  BIRD.HITS.  BIRD.MISSES.  H.REP.RQ* 

H.REF'.GO*  V.REP.RO,  V.REP.GO,  GRN0.6IRD,  END.REF'RISE-FELL.SHORT. 

CONTINUE.  HIT. KILL .  HIT.DISABLE)  BYTE  PUBLIC  AT  (06014H)! 

7  1  DECLARE  (H.MISS. ASCII . V.MISS.ASCII * X.MISS. ASCII)  (22>  BYTE  PUBLIC  AT'060Z2H)! 

8  1  DECLARE  U3ART.STAT  LITERALLY  'OODEH1. 

USART.DAT A  LITERALLY  'OODCH1! 

9  1  DECLARE  CTRL.B  LITERALLY  '020'; 

10  1  DECLARE  CTRL.C  LITERALLY  '030' i 

11  1  DECLARE  CTRL.N  LITERALLY  '1 AO': 

12  1  DECLARE  NAME.LET.l  (*)  BYTE  DATA  <350-630. 1420.730. 1130.370)  ! 

13  1  DECLARE  (CHAR.DUNNN-  BYTE! 

14  1  DECLARE  RUB.OUT  LITERALLY  '7FH': 

13  1  DECLARE  CARRIAGE.RETURN  LITERALLY  'ODH'I 

16  1  DECLARE  LINEFEED  LITERALLY  'OAH': 

V  1  DECLARE  NAME.BUR  (11)  BYTE! 

18  1  DECLARE  ERASE.MODE  (2)  BYTE  DATA  (330.1770): 

19  1  DECLARE  HRITE.MODE  (2)  BYTE  DATA  (330.1410): 

20  1  DECLARE  ERASE.BUFFEF:  (13)  BYTE! 

21  1  DECLARE  T.SIGHT.BUFFER  («)  BYTE  PUBLIC  DATA  (350.610.1340. ’30. 1130. 370. 

11A0. 1110- 1070. 1100- 1240. 1230. 

1110.1070.1100.1240.350) ! 

22  1  DECLARE  D.SIGHT.BUFFER  (*>  BYTE  PUBLIC  DATA  (350.610.1540.730.1130.370.1040. 

1010.1310.350) ! 

23  1  DECLARE  S.RANGE.BUFFER  (*)  BYTE  PUBLIC  DATA  (350.570.1660.730.1130.370.610. 

620.650.600.400.1150.1050.1240. 
1050-1220.350)! 

24  1  DECLARE  L.RANGE.BUFFER  <*)  BYTE  PUBLIC  DATA  <350, 570, 1660, 730, 1130, 370, 630- 

600.600.600.400.1150.1050.1240. 

1050.1220.350) ! 

25  1  DECLARE  SCENARIO.BUFFER  (9)  BYTE  PUBLIC! 

26  l  DECLARE  AUTO.BORESIGHT.MSG  !«)  BYTE  DATA  (350,400.1400.700.1210.370.1010. 

1250.1240.1170,1370,1020,1170, 

1220,1050,1230,1110,1070.1100. 

1240,350)! 


27  1  DECLARE  ( OFFSET. Y 1 .0FESET.Y2 ,0FFSET_Y3,0FFSET_Z 1 , 0FFSET.22 , 0FFSET.23 ) 

BYTE  EYTERNAL: 

28  1  DECLARE  'N0FFSET_Y1,N0FFSET_Y2»N0FFSET_Y3,N0FFSET_Z1,N0FFSET_:2.N0FFSET_Z3> 

BYTE  EXTERNAL! 


*  .*  „•  .*  .•  .»  _•  .■*  -  >  ,•  -  •  *  l.  ■  y w  v.  ^  m  "v  ~  y  ~-  r  V* 

1 

-J 

!•••.'■  29 

1 

print:  procedure  (message,  msg.lencth)  external; 

.4 

30 

2 

DECLARE  MESSAGE  POINTER. 

* 

3i 

O 

U 

MSG.LENGTH  WORD! 

END  print; 

:j 

. 

a 

1 

tank.start:  procedure  external; 

— 

33 

n 

L 

end  tank.start; 

* 

;  39 

1 

ingest:  procedure  public; 

« 

35 

2 

DECLARE  (I.J.K)  byte;  /*  I  IS  THE  cursor  pointer*/ 

HE  36 

ERASE.BUFFER  (0)  =  900 i 

<•< 

37 

L. 

ERASE.BUFfER  (1)  =  900! 

i 

38 

2 

ERASE.BUFFER  (2)  =  900! 

!:*.  39 

n 

u 

ERASE.BUFFER  <3>  =  9005 

i' 

90 

n 

L 

ERASE.BUFFER  (9)  =  900! 

7 

L 

ERASE.BUFFER  (5)  =  900! 

*• 

tB  92 

2 

ERASE.BUFFER  (6)  =900! 

,  s 

::-v  « 

L. 

ERASE.BUFFER  (7)  =  900? 

' 

r..y  « 

2 

ERASE.BUFFER  (8)  =900! 

!•: 

95 

9 

A. 

ERASE.BUFFER  (9)  =900! 

_ 

96 

0 

L. 

ERASE.BUFFER  (10)  =  330! 

iet  ^ 

L. 

ERASE.BUFFER  (11)  =  1910! 

c 

“  98 

>  *,• 

n 

ERASE.BUFFER  (12)  =  350! 

A 

w 

49 

n 

L. 

SCENARIO.BUFFER  (0)  =  350! 

V 

50 

n 

*. 

SCENARIO.BUFFER  (1)  =560; 

> 

« 

51 

n 

SCENARIO.BUFFER  (2)  =  1900! 

c 

^  52 

2 

SCENARIO.BUFFER  (3)  =  730 i 

VI 

2 

SCENARIO.BUFFER  (9)  =  1130; 

1? 

y-\  59 

2 

SCENARIO.BUFFER  (5)  =  370! 

55 

2 

SCENARIO.BUFFER  (8)  =350! 

- 

56 

2 

NAME.BUF  (0)  =  900! 

0 

M  57 

2 

NAME.BUF  a)  =  900 J 

W  58 

2 

NAME.BUF  (2)  =  900! 

M 

wV>  59 

■7 

4. 

NAME.BUF  '3)  =  900; 

y-;  60 

n 

u 

NAME.BUF  (9'  =  900! 

6i 

*7 

L 

NAME.BUF  (5)  =  900 : 

S-:-:  62 

2 

NAME.BUF  (6)  =  900! 

,1;  63 

2 

NAME.BUF  (7)  =900! 

/: 

69 

2 

NAME.BUF  (8)  =  900! 

U 

65 

0 

i. 

NAME.BUF  (9)  =  900! 

\ 

66 

n 

NAME.BUF  (10)  =  350! 

*/ 

67 

2 

1=0 ; 

& 

r  • 

2 

far.target  =  i; 

.  i 

.3^ 

69 

0 

i. 

IF  DAY.SIGHT  =  1  THEN  CALL  PRINT  (8D.SIGHT.BUFFER*  LENGTH  (D.SIGHT.BUFFER))* 

71 

2 

ELSE  CALL  PRINT  (BT.SIGHT. BUFFER*  LENGTH  ( T.SIGHT.BUFFER ) >  J 

*4 

72 

t 

CALL  TIME  (10000); 

• 

V 

[•-  73 

n 

L 

IF  FAR.TARGET  =  0  THEN  CALL  PRINT  (BS.RANGE.BUFFER*  LENGTH  (S.RANGE.BUFFER))! 

*-• 

-  75 

n 

ELSE  CALL  PRINT  (BL.RANGE.BUFFER*  LENGTH  (L.RANGE.BUFFER))! 

M 

76 

2 

CALL  TIME  (1000D) ! 

N*  •-  77 

2 

CALL  PRINT  (^SCENARIO.BUFFER*  LENGTH  (SCENARIO.BUFFER))! 

«.■  -  ■ 

*» 

*_* 

161 

N  , 

78 

2 

00  K  =  «  TO  (LENGTH  (ERASE.BUFFER)  -4)1 

7? 

3 

ERASE.BUFFER  (K)  =  400! 

80 

3 

end; 

81 

L 

DO  K  =  0  TO  (LENGTH  (NAHE.BUF)  -2)! 

82 

3 

NAHE.BUF  (K)  =  400. 

83 

3 

end; 

/xixxxiixxxxxxxixxiiixxxxxxxiixxxixxxmiixxxiixxxxxxxxxixiiiiixxxixxxxiixxixx 

THIS  STARTS  THE  NAME  INPUT  ROUTINE. 

84 

2 

DUNNN  =  0; 

85 

L. 

IF  DAY.SIGHT  THEN  00  CASE  (STARTING. TRACK  AND  03H>! 

87 

3 

f 

88 

3 

do; 

89 

4 

OFFSET.Y  =  0FFSET.Y1! 

90 

4 

OFFSET.!  =  OFFSET. Zl! 

91 

4 

end; 

92 

3 

oo ; 

93 

4 

OFFSET.Y  =  0FFSET.Y2; 

94 

4 

OFFSET.!  =  OFFSET. Z2! 

95 

4 

end; 

94 

3 

do; 

97 

4 

OFFSET.Y  =  0FFSET.Y3! 

98 

4 

OFFSET.!  =  0FFSET.Z3! 

99 

4 

end; 

100 

3 

end; 

101 

2 

ELSE  00  CASE  (STARTING.TRACK  AND  03H)! 

102 

3 

• 

t 

103 

3 

oo ; 

104 

4 

OFFSET.Y  =  N0FFSET.Y1J 

105 

4 

OFFSET. Z  =  N0FFSET.Z1! 

106 

4 

end; 

107 

3 

oo ; 

108 

4 

OFFSET.Y  =  N0FFSET.Y2! 

109 

4 

0FFSET.Z  =  N0FFSET.Z2; 

110 

4 

end; 

111 

3 

oo ; 

112 

4 

OFFSET.Y  =  N0FFSET.Y3! 

113 

4 

OFFSET.!  =  N0FFSET.Z3! 

114 

4 

end; 

115 

3 

end; 

116 

2 

START.BIT  =  i; 

117 

2 

Cl!  00  NHILE  NOT  DATA.RDYl! 

118 

3 

DO  WHILE  SHR  (INPUT (USART.STATM)! 

119 

4 

CHAR  =  (INPUT (USART.OATA)  AND  07FH)i 

120 

4 

IF  CHAR  =  CTRL.C  THEN  COACH.ON  =  1! 

122 

4 

IF  CHAR  =  CTRL.N  THEN  COACH.ON  =  0! 

m  i 


126  5 

127  5 

128  5 


IF  CHAR  =  CTRL. 8  THEN 
DO! 

AUTO.BORESIGHT  =  It 

CALL  PRINT ( PAUTQ.BORESIGHT.HSG  t  LENGTH  ( AUTO.BORESIGHT.HSG) ) » 

end; 


129  1 


ELSE  IF  NOT  OUNNN  THEN  DO! 


132  5 

135  6 

136  6 

137  6 

138  6 

139  6 
HO  6 


H2  7 
H3  7 

144  6 

145  5 

146  6 

148  6 


IF  CHAR  =  RUB. OUT 
THEN 

DOt  IF  I  >  0  THEN  I  =  i-i; 

ERASE.6UFFER  (I)  =  NANE.6UF  (I); 

NAHE.BUF  (I)  =  400! 

CALL  PRINT  (PERASE.HODE-  LENGTH  (ERASE.HODE))! 

CALL  PRINT  (PNAHE.LET.lt  LENGTH  (NAHE.LET.l)); 

CALL  PRINT  (PERASE.BUFFER'  LENGTH (ERAiE.BUFFER) ) ! 

CALL  PRINT  (PHRITE.HODE*  LENGTH  (HRITE.HODE))! 

DO  J  =  0  TO  09D; 

ERASE.BUFFER  (J)  =400! 

end; 

end; 

else  do; 

IF  CHAR  =  LINE.FEED  THEN  GOTO  SKIP! 

IF  CHAR  =  CARRIAGE.RETURN  THEN 


CALL  TANK.START! 
DUNNN  =  I! 

GOTO  skip.it; 


160  7 

161  7 


165  3 

166  2 

167  1 


IF  I  <  10D  THEN 

do; 

NAHE.BUF ( I )  =  CHAR! 

1=1+1 ; 

CALL  PRINT  (PNAHE.LET.lt  LENGTH  (NAHE.LET.l)); 

CALL  TIHE  (200D)! 

CALL  PRINT  (PNAHE.BUFt  LENGTH(NAHE.BUF)); 

END! 

skip:  end; 
end; 
end; 
end; 

skip.it:  end  ingest; 

REP.INFO:  PROCEDURE  PUBLIC! 


IF  DAY.SIGHT  =  1  THEN  CALL  PRINT  (PD.SIGHT.BUFFERt  LENGTH  (D.SIGHT.BUFFER' ) ! 

ELSE  CALL  PRINT  (PT.SIGHT.6UFFER.  LENGTH  ( T. SIGHT. BUFFER* )J 
CALL  TIHE  (lOOOC); 

IF  FAR.TARGET  =  0  THEN  CALL  PRINT  (PS.RANGE.BUFFERt  LENGTH  (S. RANGE. BUFFER)) 
ELSE  CALL  PRINT  (PL.RANGE.BUFFERt  LENGTH  (L.RANGE.BUFFER) ) ! 
CALL  TIHE  (10000); 

CALL  PRINT  (PSCENARIO.BUFFERt  LENGTH  (SCENARIO.BUFFER))! 


163 


177 

2 

CALL  TIME  ( 10000  ■ : 

178 

i. 

CALL  PRINT  (8NAHE.LET.1.  LENGTH  (NAME .LET, 

179 

n 

L 

CALL  PRINT  (8NAME.BUF >  LENGTH  (NAME  BUF ) > * 

180 

*) 

L. 

END  REP. INFO# 

181 

1 

ENO  KETBOARD.IO: 

mooule  information: 

CODE  AREA  SIZE  =  OAC7H  12Z3D 

CONSTANT  AREA  SIZE  =  OOOOh  OD 

VARIABLE  AREA  SIZE  =  0026H  38D 

MAXIMUM  STACK  SIZE  *  OOOEH  HD 

229  LINES  READ 
0  PROGRAM  ERROR !S) 


END  OF  PL/H-86  COMPILATION 


ISIS-II  PL/M-86  V2.1  COMPILATION  OF  MODULE  MAIN.MODULE 
OBJECT  MODULE  PLACED  IN  I F2 1  RETRO. OBJ 

COMPILER  INVOKED  BY!  PLM86  !F2! RETRO. PLM  DEBUG  LARGE  OPTIMIZED)  ROM  HORKFILES  CFZT.IFZI) 


1  MAIN.MODULE!  DO! 

/* - DECLARATIONS . — «/ 

2  1  DECLARE  (DATA.ROY1 . START.BIT »OFFSET_Y .OFFSET.Z.AUTQ.BQRESIGHT)  BYTE  EXTERNAL! 

3  1  DECLARE  DISTANCE  WORD  EXTERNAL! 

4  1  DECLARE  (FRESH.START .BIT.BUCKET rPGM.WAIT)  BYTE! 

5  1  DECLARE  (HIT_PARADE_H£HORY»HIT_SHOfiT.HENORY.D£AD_6IRD_HEHORY« 

U.REP.FL AG . H.REP.FLAG !  BYTE  PUBLIC! 

6  1  DECLARE  ( V.REP.RO •  V.REP.GO . H.REF'.RQ . H.REP.GO . F AST  > BIRD.DT.RDY )  BYTE  EXTERNAL! 

7  1  DECLARE  <H.HISS_ASCII.V_MISS_ASCII.X.MISS.ASCII)  (22)  BYTE  EXTERNAL! 

8  1  DECLARE  ( GRND.BIRD . BAD.MISS  . BIRD.MISSES . BIRD.HITS . 

END.REF'RISE.FELL.SHORT.  HIT.KILLr  HIT.DISABLE.  COACH.ON)  BYTE  EXTERNAL! 

9  1  DECLARE  LIT  LITERALLY  'LITERALLY'! 

10  1  DECLARE  CR  LIT  'ODH'i 

11  1  DECLARE  LF  LIT  'OAH'! 

12  1  DECLARE  FOREVER  LITERALLY  'WHILE  1 ' ? 

13  1  DECLARE  FAR.TARGET  BYTE  EXTERNAL! 

H  1  DECLARE  USART.F'ORT  LIT  '0D8HS 

USART.CNTRL  LIT  ‘ ODAH ' , 

USART.RESET  LIT  '010H'. 

USART.CMMND  LIT  '037H', 

USART.MODE  LIT  ' O^EH ' . 

USART. STATUS  LIT  ' ODEH ' » 

TIMER.CNTRL  LIT  '0D6H'. 

TIMER.CNTRL2  LIT  '0D4H', 

CNTR2.M0DE  LIT  '0B6H', 

LOW.ADM  LIT  '004H'. 

HIGH.ADM  LIT  'OOOH'! 


15  1  DECLARE  <0FFSET_Y1.0FFSET_Y2. OFFSET. Y3.0FFSET.Z1.0FFSET.Z2. 

0FFSET.Z3rN0FFSET.Ylr  N0FFSET.Y2 r  N0FFSET.Y3 r  N0FFSET.Z1 r 
N0FFSET.Z2 r N0FFSET.Z3)  BYTE  EXTERNAL! 


16  1  DECLARE  ALPHA.MOOE.HOME  fi)  BYTE  DATA  (330.140)! 

17  1  DECLARE  CLEAR.SCREEN  BYTE  DATA  (310)! 

18  1  DECLARE  V.REP.GRAF’H  (D  BYTE  PUBLIC  DATA 

<310.350.400. 1400.400.1000.370. 'V .350) ! 


L'.-  19  1  DECLARE  H  REP  GRAPH  (i)  BYTE  PUBLIC  DATA 

f 

P  *■  /iniiiinmimiiiiiiiiiii  •  RANGE  METERS '  *iiiim*iii«ii»inif mixiiniii / 

<310.350.400.1710.400. 1000. 370. 1220. 1010. 1160. 1070. 1050. 350. 670. 1560. 400. 1000. 
|C-.;  370.1150.1050.1240.1050.1220.1230. 

r;: 

/iiiiuiiiiii'NAME  SIGHT  RANGE  SCENARIO  'iiiuinui/ 

350. 630. 1750 .730. 1130 >370. 1160 .1010 .1150. 1050. 720. 350. 620 .1750 .730. 11 30* 370. 
Lv.  1370, 1370. 1370. 1370. 1370,1370. 1370. 1370. 1370. 1370, 350. 620-1470. 730. 1130. 370. 

1230. 1110- 1070- 1100. 1240. 720. 350.610. 1170. 730. 1130. 370. 1370. 1370. 1370. 1370. 


v_v 


1370t 1370- 1370*1370. 1370*1370, 350*600. 1610. 730- 1130. 370. 1220- 1010. 1160. 1070. 
1O50,72O,35O,57Q,161O>73O,H3O>37O,137Q,13‘,O,137O,13’D,137O,137O,137O.137O, 
1370. 1370, 350. 560,1730,730, 1130,370, 1230*1030. 1050, 1140. 1010, 1220, 1110, 1170, 
720, 350, 550, 1730, 730, 1130, 370, 1370, 1370, 1370. 1370, 1370, 1370-1370, 1370, 1370, 
1370, 

/mxiiiiiiixxmixxixiUERTICAL  MISSILE  ENVELOPEiiixixiiiiiiiix  ' 

350,  MO,  1740, 550, 1110,  *10, 1740, 170, 1010, 460, 1570, 470.  1010. 

/iiixxxxiiiixxxixixxiii' MISSILE  ELEVATION* xixixxxxxxxixixiixixx/ 

350, 100, 1710, 460,1200-370, 'MISSILE  ELEVATION1 ? 

/xxiixxiiixixixxxxixxxii ' ( 1  METER  TICS)  'xxxxxxxxxxxxxxxxixixiiixxx 

350, 400, 1400, 470, 1010, 370*' (1  METER  TICS)’, 

/ixxihiiixihiixxxixiiHORIZONTAL  MISSILE  ENVEL0PE****xiixxxmiii, 

350. 110. 1710. 610. 1130. 110. 1710. 700. 1330. 350- 460, 1570, 650, 1030- 110- 1710. 
650,1030, 

/xxixxxxxxxxxxxxxixxxixx' MISSILE  AZIHUTH'ixiiiiiiiitixiixmxixiixiix/ 

350, 100, 1710< 610, 1200, 370,'MISSILE  AZIMUTH', 

/xxxxxxmxmxxixxxxxxi' ( i  METER  TICS  > 'xxxixxxxxxxixnxxxxixxxxixxxxix / 

350,100,1100,610.1370,370, '(1  METER  TICS) ' )» 

'  1  DECLARE  MORE.HREF'.GRAF'H  ■%)  BYTE  PUBLIC  DATA 

/xxxxixxxiiimxxxmxxxx1  TARGET  LINEUFOR  VERT  MISSILE  F OEITQN  iiixxi 

(350,630,1110.140.1100.370,1210,350,620,1160.160,1100,370.1010,350.610. 

1500,160,1100,370,1220,350,600, 

1520- 160. 1100- 370.1070. 350, 570, 1510-160. 1100- 370- 1050- 350, 560, 1560, 160- 
1100, 370- 1210, 350- 510, 1620, 160, 1100, 3’0. 1110, 350, 530- 1610, 160. 1100, 370, 

1110. 350-  520. 1660- 160, 1100, 370, 1160- 350. 510- 1700-160. 1100- 370- 1050- 350, 
500-1720,160,1100,370,0100, 

/XX^XXIXIXXIXX^I^X^XX^XX, TARGET  LINE* 'FOR  HORIZONTAL  MISSILE  FQS.'xixxx/ 


350, 610, 1520- 610, 1120, 370, 1210, 350, 630- 1510, 610, 1120- 370, 1010- 350, 620, 

1600, 610, 1120.370, 1220- 350, 610- 1600- 610,1 120, 370,1070, 350- 600. 1420. 

610, 1120, 370, 1050, 350- 570, 1610, 610- 1120, 370, 1210, 350, 630, 1510, 650, 1220, 370, 
1 110,350,620, 1600.650. 1220,370, 1 110,350,610, 1600.650- 1220, 370, 1 160, 

350, oOO, 1620, 650, 1220, 370, 1050. 


/iixixxxixxixxxxiiixxix  REPRISE  ELEVATION  TICS  xxxxxxiixixixiiiixxxiixxi/ 

310,110,1670,170,1010,110,1650,170,1010,110,1670.170.1250,110,1650,170,1250, 
110,1670,500,1110,110,1650,500,1110,110,1670.500,1350.110,1650,500.1350.110, 
1670, 510, 1210, 110, 1650, 510, 1210-110, 1670, 520, 1050, 110, 1650, 520, 1050, 110, 1670i 
520,1310,110,1650,520.1310,110,1670,530,1150,110,1650.530.1150,110,1670,510, 
1010,110,1650,510,1010.110.1670.510,1250.110,1650,510,1250,410.1670,550,1110' 
110- 1650,550, 1110, 

xxixxxxiixxxixxxxxiix  REPRISE  AZIMUTH  TICS  ixxxxixixixxixxxxxiixxxixxxx 

340, 410, 1670, 610, 1130- 410, 1650, 610, 1130, 410. lt70, 610, 1370. 410, 1650-610- 1370- 
110.1670,620,1230,410.1650,620,1230,410,1670.630,1070.410.1650,630,1070.410. 
1670, 630- ;730, 110, 1650. 630, 1330, 110, 1670. 640, 1170, 410- 1650, 640, 1170- HO- 1670 


1  c  c 


lili] 


650, 1030, 110, 1650, 650, 1030, 110, 1670, 650, 1320, 410, 1650, 650, 1320,110. 1670,660, 
1130,410, 1650,660,1130.410, 1670,660,1370,110,1650,660, 1370. 110. 1670*670-1230 
410. 1650,670,1230,410,1670,700,  1070. 110. 1650.700. 1070,  410,1670. 700. 1330. 110. 
1650,700,1330. 

/xiiiiimiiimiiixii  EXTENTION  FOR  VER.  REP.  ORDINATES  xxxxxxxxxxxxx/ 

350.410. 1710. 450. 1050. 410. 1740.470. 1010. 310. 410. 1670.450. 1050.410. 1650, 

450.1050.410.1670.450.1310.410.1650.450.1310.410.1670.460.1150.410.1650. 
160,1150); 

21  1  DECLARE  FAR.RANGE.DATA  (x)  BYTE  PUBLIC  DATA 

(350,410,1650,100,1000,370,400,100,400, 600 , 550 , 

350.440.1500.400.1000.370.400.650.600.600.550, 

350.460.1720.400.1000.370.610.600.600.600.550, 

350.510.1530.400.1000.370.610.650.600.600.550, 

350.530.1770.400.1000.370.620.600.600.600.550, 

350.560.1610.400.1000.370.620.650.600.600.550, 

350.610.1430.400.1000.370.630.600.600.600.550, 

350.630.1650.400.1000.370.630.650.600.600.550, 

350.660.1460.400.1000.370.640.600.600.600.550) ; 

22  1  DECLARE  NEAR.RANGE.DAT A  (x)  BYTE  PUBLIC  DATA 

(350,110,1650.400,1000.370,400,400,400,600,550. 

350.440.1500.100.1000.370.400.620.650.600.550, 

350,460,1 720  *400,1 000 , 370 , 400,650 ,600,600, 550  - 

350.510.1530.400.1000.370.600.670.650.600.550, 

350.530.1770.400.1000.370.610.600.600.600.550, 
350-560,1610,400,1000,370.610,620,650,600,550, 

350.610.1430.400.1000.370.610.650.600.600.550, 
350.630,1650,400,1000,370,610,670,650,600*550, 

350.660.1160.400.1000.370.620.600.600.600.550) ; 

23  1  DECLARE  GRAPH.DAT A  (D  BYTE  PUBLIC  DATA 

'xuixixxxxxxxiAZIttUTH  ENUELOPEiixxxxixxxxxxxxxxix/ 

r 350, 410, 1710, 610* 1250. 660, 1570-610, 1250-660. 
1570,700,1210,410.1740,700,1210,110,1740,610, 
1250,350,410,1710,650,1030-660,1570,650,1030, 

/xxxmxxxxxxxELEVATION  ENVELOPE*xxiiixiixixxxiiix/ 

350, 110, 1710, 470, 1010- 660- 1570, 470, 1010, 660, 1570, 500- 1350- 410, 1740, 500, 1350, 
110,1740,470,1010.350,410,1740,470,1370,660,2570,170,1370, 


/xxxxxxxxxxxfxAIIMUTH  RANGE  TICSixiiiiixxnixxxxxi/ 

L  :■  340,110,1560.640,1360,440,1560,640,1320,440,1560,650,1060,440,1560,650,1130, 

P-#.  170,1410,640,1360,470,1410,640-1320,470,1410.650,1060,170,1410,650,1130,510, 

1630,610,1360,510,1630,640,1320,510,1630,650,1060,510,1630,650,1130,540.1450 
rX'':  610,1360,540,1450,640,1320,540,1450,650,1060,540,1450,650,1130,560,1700,640, 

1360,560,1700,610,1320,560,1700,650,1060,560.1700,650,1130,610,1520,640,1360 
•y.'X  610,1520,640,1320,610,1520,650,1060,610,1520.650,1130,630,1750.640,1360.630, 

1750,640,1320,630,1750-650,1060,630,1750,650,1130, 

/XiiiiiiiiiiiiELEOATION  RANGE  TICSn****i*xxixxix/ 

340,440,1560,470,1320,440,1560,470,1260,440,1560,500,1020,440,1560.500,1070. 

470,1110.470,1320,470,1410,470,1260,470,1410,500,1020,470,1410,500,1070,510, 


[• 


167 


1630,170, 1320-510, 1630, 470,  1260*510. 1630.500. 1020,510,1630,500,  1070,510, 1150, 
170. 1320. 510.  1150,170,1260,510, 1150. 500,1020,510,1150, 500. 1070,560, 1700,170, 
1320. 560, 1700 *170, 1260, 560 .1700 ,500 >1020. 560,1700,500 '1070. 610 >1520, 170, 1320, 
610,1520,170.1260.610,1520,500,1020,610,1570,500,1070,630,1750,170,1320,630, 
1750,170,1260,630,1750,500,1020,630,1750.500.1070, 

/illllixixxiixAZIHUTH  NIL  TICSHmiiuniiiiiiimiiumiiiiu/ 

310, 110, 1670, 610, 1250, 110, 1650- 610, 1250. 110- 1670, 610, 1370, 110, 1650- 610, 1370- 
110,1670,620,1110-110,1650,620,1110,110,1670,620,1230,150.1650,620,1230,110, 
1670, 620, 1350- 110, 1650. 620. 1350. 110- 1670, 630- 1070, HO, 1650, 630. 1070, 110, 1670- 
6 30, 1210,110, 1650, 630, 1 21 0,110, 1670, 630- 1330, 41 0.1 650, 630, 1330, 11 0,1670, 610, 
1050*110, 1650,610, 1050,110,1670,610, 1170,110, 1650 >6 10* 1 1 7  0 , 110, 1670, 610* 1310, 
110,1650,610,1310.110,1670,650,1030.110,1650,650.1030,110,1670,650,1150,110, 
1650, 650, 1150- 110. 1670>650, 1270, 110, 1650,  sSG-  1270, 110, 1670, 660-1010, 110, 1650, 

660. 1010. 110-  1670.660. 1130, 110, 1650, 660, 1130, 110. 1670> 660- 125C, 110, 1650, 660, 
1250- 110-1670, 660. 1370, 110, 1650, 660, 1370, 110, 1670,670, 1110-110, 1650, 670, 1110, 

110.1670.670.1230.110.1650.670.1230.110- 1670,670,1350,110,1650,670,1350,110, 
1670*700, 1070, 110. 1650, 700, 1070, 110- 1670, 700, 1210, 110- 1650- 700- 1210)1 


DECLARE  NOR'E.GR'APH.DATA  Hi  BYTE  PUBLIC  DATA 

/xxxiiixxxxxiELEVATION  NIL  TlCSxxxxixtxiiiixixfti/' 

( 310, 11 0, 1 670, 1T0> 1 0’ 0,110- 1650, 170, 1010, 110, 16’0, 500, 1350. 11 0*1650, 500 '1350* 
110, 1670, 170, 1370- 110. 1650- 170,1370,110, 1670,170- 1130. 120- 1650, 170,1130,110, 
1670,500,1230,110,1650,500,1230.110,1670,170,1250.110,1650,170,1250,110,1670, 
500,1110,110,1650,500,1110, 

/xixiixzxxn1  BIGHT  LEFT  UP  DOWN'xixxzxxxxiixxxzxx  ■ 

350,130,1110,710,1000,370.500,1220,1110,1070.1100,1210.510,350,130-1110,560, 

1210.370.500.1110.1050.1060.1210.510.350.130.1110.510.1110.370.500.1010.1170, 
1270. 1160. 510, 350, 13G, 1110- 110, 1330, 370. 500, 1250- 1200, 510, 

/xxxxxxxxxzxxx’ ( 100  MICRO  RAD  TICS)'  FOR:  AZIMUTH  AND  ' AZIMUTH 'xxxxix/ 

350- 660, 1630, 630, 1210-370, 1010, 1320, 1110* 1150, 1250- 1210. 1100, 350, 100, 2710, 

600,1350,370,500.610.600,600.100,1150,1110,1030,1220.1170,100,1220,1010, 

1010,100,1210-1110,1030,1230,510, 

/xixiiiiiixxii’ (100  MICRO  RAD  TICS)'  FOR:  ELEV.  AND  ' ELEVATION 'xxxxxxx/ 
350,660,1630.160.1030,370.1050,1110.1050.1260-1010,1210.1110,1170.1160, 

350.100.1710.130.1310.370.500.610.600.600.100.1150.1110.1030.1220.1170, 
100.1220,1010.1010-100.1710,1110,1030.1230.510. 


/xxmxxxxxxi'NANE  SIGHT  RANGE  SCENARIO’ xxxiiixxxxi 

350-630, 1750’ 7 30< 1 132 .370,1160- 1010.1150, 1 050, 720, 350* 620- 1 '50,730,1130, 370, 


1370, 1370, 1370,1 370, 1370. 1370, 1270, 1370, 13‘’0,1370, 350.620,1170,730, 1130, 370, 
1230,1110,1070.1100.1210.720,350,610.1170.730.1130,370,1370,1370,1370,1370, 
1370, 1370, 1370, 1370, 1370. 1370, 350, 600, 1610, ■’30, 1130, 370. 1220, 1010, 1160, 1070, 
1050- 720, 350 , 570. 1 61 0,730- 1! 30, 370- 1 3’0, 1370 i 1 370, 1370- 1370< 1 370, 1370- 1370, 


1370, 1370,350.560, 1730,733, 1 130, 370, l?30> 1C30. 1050. 1160, 1010- 1220, 11 10, 1170, 


720 , 350 , 550 .1730. ’30 • 1 1 3C  < 370 ■ 1 370  - 
1370, 


370-1370, 1370, 1370. 1370, 1370, 1370-1370, 


/xxixxxxaxxxxxxixxmiTxxxxi  RANGE  NT  [^  uimnimiumuniiuinim/ 

350 .100,1710,100,1 000 . 37 j , 1 220 , 1 0 1 0 , 1! 60 , 1 070 . 1 050 , 350 ,670, 1560, 100, 1000,370* 
1150,1050,1210,1050*1270. 1230  > I 


cn  i_n 


25  1  PRINT:  PROCEDURE  (MESSAGE,  MSG  LENGTH)  EXTERNAL/ 

26  2  DECLARE  MESSAGE  POINTER/ 

MSG.LENGTH  WORD! 

27  :  END  PRINT/ 

28  1  HIT.EXPLOSION:  PROCEDURE  EXTERNAL/ 

29  2  END  HIT.EXPLOSION! 

30  i  cround.explosion:  procedure  external; 

31  2  end  ground.explosion; 

32  i  gae.init:  procedure  external; 

33  2  END  GAE.INIT; 

39  1  tank.killed:  procedure  external; 

35  2  END  TANK.KILLED; 

36  i  tank.init;  procedure  external; 

37  2  END  TANK.INIT; 

38  1  gae.driver:  procedure  external; 

39  2  end  gae.driuer; 

to  i  smoke.init:  procedure  external; 

91  2  end  smoke.init; 

92  i  octagon.driver:  procedure  external; 

93  •  end  octagon.driver; 

99  i  rep.info:  procedure  external; 

95  2  end  rep.info; 

96  i  set.flg:  procedure  external; 

97  2  end  set.flg; 

98  i  reset.flg:  procedure  external; 

99  2  END  RESET.FLG; 

50  i  frame.grab:  procedure; 

OUTPUT (OCH)  =  o; 

BIT.BUCKET  =  INPUT' 1  OH)! 

53  2  BIT.BUCKET  =  INPUT (19H); 

59  2  CALL  TIME  '900D); 

55  2  END  FRAME.GRAE; 

56  1  DECLARE  POINT.MODE  (2)  BYTE  DATA  (350.390': 

57  1  DECLARE  VECTOR. MODE  (1)  BYTE  DATA  (350)! 

58  1  DECLARE  AUTO.BORESIGHT.MESG  (D  BYTE  DATA 

( 350.900. 1900.70Q.121Q. 370. 1010. 

1250. 1290-1170.1370.1020. 1170. 
1220.1050.1230,1110,1070,1100. 

1290.350'! 

59  1  DECLARE  HIT.KILL.MSG  (D  BYTE  DATA 

(350,670.1540.590.1200.370. 'iiHIT  KILL**' .350) 
/*  HIT  MSG  IS  AT  (900,750) 

60  1  DECLARE  HIT. DISABLE. MSG  d)  BYTE  DATA 
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(350,670,1560,540*1200,370, 'iiHIT  DISABLE** 1  -350)! 

/*  HIT  MSG  IS  AT  (400*750)  */ 

DECLARE  HIT.HSG  (D  BYTE  DATA  (350.670.1560.540*1200*370* '**HITh‘ ,350) ! 

it  HIT  MSG  IS  AT  (400,750)  */ 

/■DECLARE  MST.FELL_SHORT.MSC  (*)  BYTE  DATA  (350*670,1560*460,1100*370):  1/ 

it  DIST.FELL.SHORT  MSG  AT  (200*750)  H 

DECLARE  MISS_DIST ANCE.MSG  (*)  BYTE  DATA  (350, 670, 1560,450*1120*370, 

'GROUND  IMPACT  ' )! 

it  MISS.DIST ANCE.MSG  AT  (170*750)  » 

DECLARE  F'f'I. CONTROL  LITERALLY  'OCEH'! 

DECLARE  PPI.MODE  LITERALLY  * lOOOOOOOB' : 

DECLARE  SET. BIT. CO  LITERALLY  'O'!  /*  0000  0000  ti 

DECLARE  RESET. BIT. CO  LITERALLY  ’1':  *  0000  0001  ti 
DECLARE  RRI.RORT.C  LITERALLY  'OCCH'i 

DECLARE  ( HIT.KILL_.MEM •  HIT. DISABLE. HEN*  BIRD.HITS.MEri)  BYTE  PUBLIC," 


hit.parade:  procedure  public; 

HIT.PARADE.NEMORY  =  1= 

DO  WHILE  NOT  ( INPUT ( 1 2H > ' :  /*  DO  WHILE  MATRO-  IE  BUSY  i 

END: 

OUTPUT <  1  OH Y  --  0.;  / 1  SET  GSCALE.VAL  TO  0  t 

BIT.BUCKET  =  INPUT (14K):  .i  START  ERASE  CYCLE  i’ 

DO  WHILE  NOT  1  INPUT : 1 2H ' ■ :  it  WAIT  TILL  MATROX  IS  THRU  WITH  ERASE  ti 

end: 

IP  NOT  (H.REP.FLAG  OP  V.REF.FlAC1  THEN 
DO: 

CALL  HIT.EYPLOSION: 

CALL  TAN). PILLED: 

end; 

'iititiiiitiinimiiiitiiitiiiiiiiiiiiitiiiiit 

do; 

CALL  SET.PLG: 

CALL  HIT.Df'LOSION: 

call  reset.flg; 

CALL  TINE  (2500D): 

OUTPUT (PPI.F'ORT.:  =  SET _E  IT.CC>:  TURN  OFF  VIDEO  TO  GUNNER 
CALL  frahe.grab; 

CALL  set.flg; 

CALL  HIT.EYPLOSJON; 

call  reset.flg; 

EUDiniiiiimiiiiiimiiiiuiuiiimiiuiiii 

FAST  =  o; 

IF  BIRD.HITS.NFM  THEN  CALl  PRINT  f »HI T _MSG • LENGTm ( HI i _MSG > ' ! 

IF  HIT. KILL. MEM  THEN  CALI  PRINT  ! PHI  I. KILL.MSG *L ENG TH*  HIT. KILL. MSG' ) : 

IF  HIT. DISABLE. MEM  THEN  CAlL  FRInT  < PhJY .DISABLE _M3G* LENGTH (HIT. DISABLE. MSG 1 > 
CALI  PRINT  ?VEC TOR. MODE ’LENGTH1 VECTOR  MOOt  :  I ! 

EASY  r  i; 

END  HIT.PARADf: 


DEAD. FIFE:  FROCEDJRE  r *.*f  ^ TP : 


I  the  S  IR'D  HAS  FLOWN  t  Y  THE  TARGE T 


AND  HAS  STRUCK  THE  GROUND.  */ 


93  2  FIR’D.  HISSES  .  GRND.BIRP  =  0! 

94  2  DEAD.BIRD.HEHORY  =  1*‘ 

95  2  DO  WHILE  NOT  ( INPUT ( 12H) )  *  /*  DO  WHILE  HATROX  IS  BUSY*/ 

96  3  END* 

97  2  OUTPUT ( 10H)  =  0!  /«  SET  GSCALE.VAL  TO  0  */ 

<58  2  BIT.BUCKET  =  INPUT  (HH):  /*  START  ERASE  CYCLE  */ 

99  2  DO  WHILE  NOT  ( INPUT  (12H) ).'  /*  WAIT  TIL  HATROX  IS  THRU  WITH  ERASE  */ 

100  3  end; 

101  2  IF  NOT  (H.REP.FLAG  OR  V.REP.FLAG)  THEN  CALL  GROUND. E XPLOSION ; 

/iiiiiixixiziiiixxxixixiiiixiixiiiiiiixxxxxxxxiiiixixxzxiixiixixx 

do; 

call  set.flg; 

CALL  HIT. EXPLOSION^ 

CALL  reset.flg; 

CALL  TIHE  (2500D); 

OUTPUT ( PPI .FOR T _C >  =  SrT.BIT.CO;  xTURN  OFF  UIDEO  TO  GUNNER  x 
CALL  FRAHE.GRA&; 

CALL  set.flg; 

CALL  HIT.EXPLOSION! 

CALL  RESET.FLG: 

END: 

XXXXXXXXIXXXXXXXXXXXXXXXXXXXXXXXXIXXIXIXIXXXXIXIXXXXXXIXXXXXXXXIX/ 

103  2  FAST  --  o; 

104  7  CALL  PRINT  (@HlSS_BISTANCE_HSG.LENGTH(HISS_OISTANCE_HSG"; 

105  2  CALL  PRINT  (BH.HISS.ASCII -LENGTH  (H.HISS.ASCII)): 

106  2  CALL  PRINT  (0V.HISS.ASCII. LENGTH  < V.MISS.ASCII > ) T 

10’  ;  CALL  PRINT  t@VECTOR.HODE. LENGTH  (VECTOR.HOOE)); 

100  2  FAST  =  i; 

109  i  END  DEAD.BIRD • 


110  1  hit.short:  procedure  public;  /*  THE  BIRD  HAS  hit  short  of  the 

TARGET.  x/ 

111  2  FELL.SHORT  -  O’. 

112  2  HIT.SHORT.HEHORY  =  i: 

113  2  DO  WHILE  NOT  (INPUT ( 12H) ) i  /*  DO  WHILE  HATROX  IS  BUSY*-' 

1H  3  END! 

115  2  OUTPUT (1 OH)  =  0!  *  SET  GSCALE.VAL  TO  0  */ 

116  2  BIT.BUCKET  =  INPUT (HH' i  /*  START  ERASE  CYCLE  *•' 

117  2  DO  WHILE  NOT  ■ INPUT* IZH> ) I  /*  WAIT  TIL  HATROX  IS  THRU  WITH  ERASE  x/ 

118  3  end; 

119  2  if  NOT  (H.REP.FLAG  OR  V.REP.FLAG)  THEN  CALL  GROUND.E XPL OSION ; 

121  2  FAST  *  0; 

:  call  print  ( @hiss.dtstance.hsg.length(HISS. distance. hsg' ) ; 

/xCALL  PRINT  (gDIST. FELL. SHORT. HSG. LENGTH ( DIST.FELL . SH0RT.HSG) ) !  */ 

1  CALL  PRINT  (gX.HISS.ASCII.  LENGTH  (X. HISS. ASCII) ) I 
J  CALL  PRINT  (gVECTOR.HODE* LENGTH  (VECTOR.HODE) ) ! 

FAST  -  li 
END  hit.short; 

IIIIIIIIIIXXXIIXXXXXXXXXXI 

-£ <■  ■ : 7AL.PEP.P0:  PROCEDURE  PUBLIC : 

-'•r  :  -  o; 
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fast=o; 

CALL  PRINT  (W.REP.GRAPH.  LENGTH (V.REP.GRAPHt ) ! 

FAST  =  1; 

V.REP.GO  ^  I! 

V.REP.RG  =  O; 

V.REP.FLAG  =  1? 

end  vertical.rep.ro: 

IXIIIXIIXXIXIIIIXIXIIXXIXIIIIIXl/ 

127  1  horizontal.rep.ro:  procedure  public; 

128  2  START.BIT  =  0! 

12?  2  DISTANCE  =  0! 

130  2  FAST  =  0: 

131  2  CALL  PRINT  (@H_REP_GRAPH.  LENGTH  (H.REF'.GRAPH! )  i 

132  2  CALL  PRINT  ( PKORE.HREP.GRAPH*  LENGTH  (HORE.HREP.GRAPH) ) ; 

133  2  CALL  REP.INFO: 

131  2  IF  FAP.TARGET  THEN  CALL  PRINT  (8FAP. RANGE. DATA;  LENGTH  (FAR.RANGE.DATA) ) 

136  2  ELSE  CALL  PRINT  (ONE AR_RANGE.DAT A.  LENGTH  (NEAR.RANGE.DATA) ) ! 

137  2  FAST  =  1) 

138  2  H.REP.RO  =  o: 

139  2  H_F.EP.FLAG  =  1! 

HO  2  START.BIT  =  1! 

HI  2  H.REP.GO  =  1! 

H2  2  END  HORIZONTAL.REP.RQ  i 

H3  1  RESULTS'.  PROCEDURE  PUBLIC! 

HI  2  FAST  =  o; 

H5  2  IF  HIT.PAPADE.NENORY  THEN  CALL  HIT. PARADE: 

H7  2  IF  HIT.SHOFT. MEMORY  THEN  CALL  HIT. SHORT! 

H9  2  IF  DEAD.BIRD.MEMORY  THEN  CALL  DEAD.BIRD: 

151  2  FAST  =  li 

152  2  V. REP. FLAG tH. REP. FLAG  =  C: 

153  2  END.REPRISE  =  0: 

151  2  END  RESULTS! 


155  l  checf.fop.auto.&ope:  procedure; 

156  2  DECLARE  CHARACTER  E.YTE-' 

157  2  IF  SHR  1  INPUT  >. ODEH i  r  1  /  THEN  DO! 

159  3  CHARACTER  =  INPUT  ' ODCH > * 

160  3  IF  CHARACTER  ^  2  THEN  DO: 

162  1  CALL  PRINT  (BAUTO.BORESIGHT.MESG*  LENGTH' AUTO. BORESIGHT  HESG > ) * 

163  1  AUTO. BORESIGHT  =  i: 

161  1  end; 

165  3  IF  CHARACTER  =  3  THEN  COACH.ON  =  li 

167  3  IF  CHARACTER  -  160  THEN  COACH.ON  -  0! 

169  3  IF  CHARACTER  =  100  THEN  PGM. WAIT  =  li 

171  3  IF  CHARArTEF  *  ^0  THEN  PGN.MAIT  =  0! 

173  3  end; 

/xxxxxxxxxxxxxiiixixitxxitiixxmxtxxiixxxtxxxxxxxxxxmxxiixx 

ODEH  IS  USART. STATUS.  ODCH  IS  USART  DATA.  2  IS  CTRL.6. 

IIXXXIIIXXXXXXXXXXXIIXXIXXIXXIIIXIXIIIXXIIXXIIIIIXIXIIIIIIXXXX/ 

end  checf.for_auto.bore; 


171  2 


175  1 

176  2 


SET.USART;  PROCEDURE! 

usart.set.up: 

OUTPUT ( TIMER.CNTRL )  =  CNTR2.MODE! 

177  2  CALL  TIME ( 1 ) » 

178  2  OUTPUT ( TIMER.CNTRL2 ) =  LON.ADM! 

17?  2  CALL  TIME  < l ) * 

180  2  OUTPUT  (TIMER.CNTRL2)  =  HIGH. ADM! 

181  2  CALL  TIME (1 ) ! 

182  2  OUTPUT  (USART.CNTRL)  =  USART.RESET ! 

183  2  CALL  TIME  ( 1 )  * 

184  2  OUTPUT (USART.CNTRL)  =  USART.MODE ! 

185  2  CALL  TIME!  1 ) ! 

186  2  OUTPUT  (USART.CNTRL)  =  USART.CMMND! 

187  2  CALL  TIME  < 1 ) » 

188  2  OUTPUT  (USART.CNTRL;  =  USART.RESET! 

18?  2  CALL  TIME  < 1 ) ! 

190  2  OUTPUT  (USART.CNTRL)  =  USART.MODE ! 

1?1  2  CALL  TIME  ^ 1 > ! 

1?2  2  OUTPUT  (USART.CNTRL)  =  USART.CMMND! 

1?3  2  END  SET.USART! 

194  1  INGEST!  PROCEDURE  EXTERNAL! 

195  2  END  INGEST! 

196  1  MATROX.START.UP:  PROCEDURE  EXTERNAL: 

197  2  END  MATROX.START.UP! 

198  1  MATROX.DRAW:  PROCEDURE  EXTERNAL! 

199  2  END  MATROX.DRAW! 


/*— . -EXECUTABLE  STATEMENTS- . 1/ 

200  1  IF  FRESH.START  <>  ODCH  THEN  START.UPIDO! 

202  2  START.BIT  =  0! 

203  2  OFFSET.Y;  OFFSET. Ylt  OFFSET. Y2»  OFFSET. Y3  =  0! 

204  2  OFFSET.Zr  OFFSET.il.  0FFSET.Z2 »  OFFSET. Z3  =  0! 

205  2  NOFFSET.Yl;  N0FFSET.Y2;  N0FFSET.Y3  =  0! 

206  2  NOFFSET.Zl.  N0FFSET.Z2;  N0FFSET.Z3  -  0! 


207  2  COACH. ON  =  0! 

208  2  FRESH.START  =  ODCH: 

209  2  END  START. UP! 

210  1  OUTPUTtPPI. CONTROL)  -  PPI.MODE! 

211  1  OUTPUT(PPI.PORT.C)  -  RESET .&IT.C0 !  /»  SET  PORT  C  BIT  0  TO  ZERO  i/ 

212  1  CALL  TIME  (15000): 

213  1  START.8IT  =  0! 

214  1  FAST;  HIT. KILL;  HIT.KILL.MEM.  HIT. DISABLE;  HIT.DISABLE.MEH  =  0! 

215  1  BIRD. HITS; BIRD. HITS_MEM;PGM_WAIT  =  0! 

216  1  CALL  SET.USART! 

217  1  CALL  SET.USART ! 

OUTPUT) 10H)  -  0!  /i  SET  GSCALE.VAL  TO  0  */ 

BIT. BUCKET  =  INPUT (14H)!  /«  START  ERASE  CYCLE  «/ 


218  1 
219  1 


m 


'  / 
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220 

1 

00  WHILE  NOT  (INPUT ( 12H) ) ;  /x  WAIT  TILL  MATROX  IS  THRU  WITH  ERASE  «/ 

221 

L. 

end; 

’■ 

. 

»  i 

222 

1 

OUTPUT  (USART.PORT)  =  CLEAF .SCREEN! 

223 

1 

CALL  TINE (17000) •  'i  DELAY  UNTIL  FINISHED  0165  MILLISECONDS)*/ 

221 

1 

CALL  PRINT  (gALPHA.MODE.HOHE-  LENGTH  ( ALPHA.MODE.HOME > ) i 

'  *• 

225 

1 

CALL  TANK.INIT!  /i  GET  SCENARIO  INFO  FROM  CONSOLE  «/ 

*  J 

226 

1 

OUTPUT  (USART.PORT)  =  CLEAR.SCREEN* 

'y'tl 

1 

CALL  TINE  (1700D)* 

i  ; 

/xiiixxixxxixxix  DRAW  THE  GRAPH  xxixxxxxmxxxxxxiixxxixxxxixxxxixx/ 

228 

1 

fast  =  o; 

22? 

1 

START.BIT  =  0; 

-/  * 

230 

1 

FAR. TARGET  =  1! 

-  —*A 

231 

1 

CALL  PRINT  (8GRAPH.DAT A •  LENGTH  (GRAPH.DATA) ) » 

232 

1 

CALL  PRINT  (PMORE.GRAPH.DATA*  LENGTH  <MORE.GRAPN.DATA ) ) » 

233 

1 

IF  FAR.TARGET  =  1  THEN 

V.\ 

231 

1 

CALL  PRINT  (gFAR.RANGE.OATAi  LENGTH  (FAR.RANGE.DATA ) ) ♦ 

o^c 

LuJ 

1 

ELSE  CALL  PRINT  (@NEAR_RANGE_DATA«  LENGTH  (NEAR.RANGE.DATA) )i 

*.  * 

236 

1 

CALL  SHOKE.INIT! 

237 

1 

call  gae.init; 

.***.. 

238 

1 

CALL  hATROX.START.UP; 

239 

1 

HIT.PARAOE.MENORY  =  0: 

210 

1 

HIT.SHORT.MEMORY  =  OJ 

Id 

211 

1 

DEAD. BIRD. HEHORY  -  0! 

212 

1 

H.REP_RQ»O.REP.ROtH_REP_GOtV.REP.GOiEND.REPRISEtBIRD.DT.RDY*BIRO.HITSi 

FELL. SHORT  i  BIRD.HISSES  i  BAO.HISS?  DATA. RDY1*V. REP. FLAG  fH.REP_FLAG» 

START.BIT  =  I! 

213 

1 

CALL  ingest; 

211 

1 

do  forever; 

V  % 

215 

L 

DO  WHILE  DATA.RDY1  i:  /x  WAIT  TILL  TOW  BOARD  HAS  TRANSFERED  DATA 

TO  THE  PIP*  ' 

r  i 

216 

3 

IF  BIRD.HITS  THEN  DO! 

■> 

218 

1 

BIRD. HITS. HEM  =  1! 

219 

1 

BIRD.HITS  =  0; 

■  * 

250 

1 

call  hit.parade; 

.  . 

251 

1 

end; 

i 

nc  - 

L.  Ji 

3 

IF  HIT.KILL  THEN  DO! 

251 

1 

hit.kill.hem  =  i; 

255 

1 

HIT.KILL  =  0; 

256 

1 

CALL  hit.parade; 

257 

1 

end; 

',-***  j 

i-w 

258 

3 

IF  HIT  DISABLE  THEN  DO) 

260 

1 

HIT.DISABLE.HEH  =  1! 

¥ 

261 

1 

HIT.DISABLE  =  0! 

262 

1 

CALL  hit.parade; 

>.1 


-J»W.  I.-. 


.  .1  .S  .V 


-k 


261  3  IF  BIRD.HISSES  AND  GRNO.BIRD  THEN  CALL  DEAD. BIRD* 

266  3  IF  FELL  SHORT  THEN  CALL  HIT, .SHORT* 

268  3  IF  H_REP.RO  THEN  CALL  HORIZONTAL_REP.RO* 

270  3  IF  END.REPRISE  THEN  CALL  RESULTS! 

272  3  CALL  CHECK.FOR_AUTO.BORE  * 

273  3  DO  WHILE  PGH.WAIT  * 

271  1  CALL  CHECK.FOR.AUT O.BORE  * 

275  1  END! 

276  3  END! 


277  2  OATA.ROYl  =  0*  /*  RESET  TILL  SET  AGAIN 

278  2  CALL'  PRINT (0POINT.HODE*  LENGTH  (POINT.MODE))! 

279  2  CALL  GAE.DRIVER* 

280  2  CALL  OCTAGON.DRIVER* 

281  2  END! 


282  1  END  HAIN.HODULE! 


module  information: 

CODE  AREA  SIZE  =  0E27H  3623D 

CONSTANT  AREA  SIZE  =  OOOOH  00 

VARIABLE  AREA  SIZE  =  OOOCH  12D 

MAXIMUM  STACK  SIZE  =  001CH  28D 

588  LINES  READ 
0  PROGRAM  ERROR(S) 


END  OF  PL/N-86  COMPILATION 


APPENDIX  D 


COMPUTER  GENERATED  SOUND  SYSTEM  PROGRAMS 


LOC  OBJ 


SEQ 


SOURCE  STATEMENT 


1  !  17  SEPTEMBER  1982 

2 

3 

4  !  PROGRAM  PRODUCES  SOUNDS  FOR  THE  FLIGHT  OF  A  TOW  MISSILE 


6 

7 


0000 

8 

ORG 

0 

0000  040B 

9 

JMP 

OBH 

10 

0003 

11 

ORG 

3 

0003  4482 

12 

JMP 

INTERR 

13 

000^ 

14 

ORG 

• 

0007  i60<? 

15 

JTF 

TEMAR 

0009  643A 

16  temar: 

17 

JMP 

TIMER 

OOOE: 

18 

ORG 

OBH 

OOOB  23FF 

19  reset: 

MOV 

A? tOFFH 

OOOD  39 

20 

OUTL 

PI, A 

OOOE  3A 

21 

OUTL 

P2»A 

• 

t 

INITIALIZE  PORTS 

OOOF  9AFC 

0"/ 

L.L 

ANL 

F'2 ,  #OFCH 

i 

SET  UP  BCl'S  1111/1100 

0011  05 

23 

EN 

I 

f 

ENABLE  EXTERNAL  INTERRUPT  ALLOWING 

24  ? 

COMMUNICATION  WITH  THE  HOSE  COMPUTER 

0012  7422 

25 

CALL 

RESGAA 

t 

RESET  THE  SOUNr  GENERATORS 

0014  742" 

26 

27 

28  clear: 

CALL 

RESGBB 

0016  8802 

MOV 

R0,*2 

* 

RAM  POINTER 

0018  P93E 

29 

MOV 

R1»*62D 

i 

RAM  COUNTER 

001A  27 

30  chase: 

CLF; 

A 

0018  AO 

31 

MOV 

PRO » A 

t 

ERASE  ALL  RAM  LOCATIONS 

001C  18 

32 

INC 

RO 

001D  E91A 

33 

DJNZ 

Rl, CHASE 

34 

001F  75 

35 

ENTO 

CLK 

t 

ENABLE  THE  2  MHZ  CLOCK  FOR  THE  PSG'S 

0020  2346 

36 

MOV 

A, *720 

0022  62 

37 

MOV 

T,A 

0023  25 

38 

EN 

TCNTI 

39 
40 ; 


41 

42  ; 

MAIN  LOOP  ROUTINE  WHICH  LOOKS  AT  RBO  REGISTERS  R5»R6»  AND 

R7 

43 ; 

AND  DETERMINES  WHETHER  TO  MAKE  THE  FOLLOWING  SOUNDS: 

44  ; 

(1)  TRIGGER  PULL  (R5=FFH) 

45  ; 

(2)  IMPACT-HIT  ( R6=FFH ) 

46  ; 

(3)  IMPACT-MISS  (R7=FFH> 

47 

0024  FD 

48  MALOOP! 

MOV 

A,R5 

0025  C62B 

49 

JZ 

CHKHIT  !  CHECK  FOR  TRIGGER  PULL.  JUMP  IF 

NOT  THERE 

0027  143F 

50 

CALL 

TRIGER  J  ROUTINE  TO  MAKE  LAUNCH  SEQUENCE 

SOUNDS 

0029  BDOO 

51 

MOV 

R5t*0  !  CLEAR  FLAG  REGISTER 

002B  FE 

52  chkhit: 

MOV 

AfR6 

nrn 

V. '  * 

*•*  *  *. 

— 

k  *  -- 

LOC  OBJ 

SEQ 

SOURCE  STATEMENT 

J 

J 

3 

002C  C638 

53 

JZ 

CHKMIS 

;  CHECK  FOR  AN  IMPACT-HIT.  JUMP  IF  NOT  THERE 

J* 

\V. 

002E  5400 

54 

CALL 

HITSOU 

J  ROUTINE  TO  MAKE  IMPACT-HIT  SOUNDS 

0030  8000 

55  doloop: 

MOO 

R5»40 

1  CLEAR  ALL  FLAG  REGISTERS  SINCE  FLIGHT  OVER 

!  ■  - 

0032  BE 00 

56 

MOO 

R6-40 

0 

0034  BF00 

57 

MOO 

R7,40 

0036  0424 

58 

JMP 

MALOOP 

•] 

0038  FF 

59  CHKHIS; 

MOO 

AiR7 

-I 

•1 

0039  C624 

60 

JZ 

MALOOP 

;  CHECK  FOR  AN  IMPACT-MISS.  JUMP  IF  NOT  THERE 

-3 

%v. 

0038  5458 

61 

CALL 

MISSOU 

i  ROUTINE  TO  MAKE  IMPACT-MISS  SOUNDS 

0030  0430 

62 

JMP 

DOLOOP 

■: 

ft 

63 

-J 

fc1  _ 

64 

;xiiixxiiixixiiiixxiiiixxiixiixxixxxixxiixiixiiiixiixxixxxxixixixxixxxiixxx 

V1 

6  j 

66 

f 

THIS  ROUTINE  PROUDUCES  THE  LAUNCH  SEQUENCE  SOUNDS  IN  THIS  ORDER 

:j 

-■/- 

67 

i 

(1)  GYRO  WIND-UP  FOR  1.5  SECONDS 

■ 

68 

t 

(2)  LAUNCH  MOTOR  EXPLOSION 

•1 

ti 

69 

4 

(3)  ROCKET  MOTOR  BURN  OF  1  SECOND 

in 

70 

t 

(4)  FADE  AWAY  SOUND  EFFECT 

71 

72 

t - 

-—GYRO  SOUND - 

- 

73 

\ 

003F  8820 

74  TRIGERt 

MOO 

R0.4020H 

:  FINE  TUNE 

-• 

0041  8000 

75 

MOO 

PRO. 40 

J 

& 

0043  7411 

76 

CALL 

SENDA 

;  THIS  IS  AN  ATTEMPT  TO  DO  A  ’POP’ 

0045  18 

77 

INC 

RO 

‘V*\ 

0046  8001 

78 

MOO 

PRO >41 

!  COURSE  TUNE 

' 

0048  7411 

79 

CALL 

SENDA 

V 

* 

004A  8827 

80 

MOO 

R0-4027H 

1  ENABLE 

• 

wl 

004C  80F6 

81 

MOV 

PR0,4366Q 

!  CHANNEL  A 

t; 

004E  7411 

82 

CALL 

SENDA 

0050  18 

83 

INC 

RO 

t  AMPLITUDE 

.\ 

0051  BOOF 

84 

MOO 

PRO i *OFH 

;  MAX 

0053  7411 

85 

CALL 

SENDA 

.1 

*  ^ 

• 

86 

SI 

0055  8A64 

87 

MOO 

R2>41000 

i  DELAY  100  MSEC 

•H 

005'  742C 

88 

CALL 

DELAY 

'  1 

89 

0059  8864 

90 

MOO 

R3>4100D 

!  LOOP  COUNTER  (DECREMENTS  ONCE  PER  LOOP) 

r  * 

0058  682E 

91 

MOO 

R0.402EH 

!  LOCATION  OF  FINE  TUNE  FOR  FREQ  *1 

0050  804C 

92 

MOO 

PR0>4O4CH 

J  FINE  TUNE  PERIOD  FOR  *1  (MUST  BE  EVEN) 

Eft; 

005F  18 

93 

INC 

RO 

!  LOCATION  OF  COURSE  TUNE  FOR  FREQ  *1 

k 

K  .  . 
K*.-. '. 

OOoO  8001 

94 

MOO 

PRO-41 

;  COURSE  TUNE  PERIOD  FOR  41 

’■ 

[■;•.■ 

0062  883E 

95 

MOO 

R0»#O3EH 

1  LOCATION  OF  FINE  TUNE  FOR  FREQ  42 

tV-’ 

0064  80FE 

96 

MOO 

PRO-40FEH 

!  FINE  TUNE  PERIOD  FOR  42  (MUST  BE  EVEN) 

% 

0066  18 

97 

INC 

RO 

»  LOCATION  OF  COURSE  TUNE  FOR  FREQ  42 

k  • 

0067  8000 

98 

MOO 

PRO t 40 

J  COURSE  TUNE  PERIOD  FOR  42 

rr- 

99 

< 

0069  882E 

100 

MOO 

RO » ♦OZEH 

J  INITIALIZE  AT  FREQ  41 

TJ 

101 

’*  - 

-".V 

0068  8920 

102  gyset: 

MOO 

R1.P020H 

•  -.•* 

0060  F0 

103 

MOV 

A»PR0 

i  GET  FINE  TUNE 

k'-- 

006E  A1 

104 

MOO 

PRliA 

!  2 OH  GETS  FINE  TUNE  VALUE 

% 

►  •; 

006F  19 

105 

INC 

R1 

!  R1  GETS  21H 

¥  4 

F.\. 
►V* . 

0070  18 

106 

INC 

RO 

►V-y 

0071  F0 

107 

MOO 

A.  PRO 

!  GET  COURSE  TUNE 

V 

t* 

k."  V 

178 

^  k 

fcft- 

*  *  • 

P* «*4  *  *,•  *  ■= .  -  .  N  ^ 

*  **•  *K»  V  •*  •'  •’  * \  '  ,*  »,*  *,  *,  * 

■*1 

LOC  OBJ 


SEQ 


SOURCE  STATEHENT 


0072  A1 

108 

NOV 

PR1  f  A 

;  21H  GETS  COURSE  TUNE  VALUE 

0073  B820 

109 

NOV 

R0.4020H 

i  FINE  TUNE  LOCATION 

0075  7411 

no 

CALL 

SENOA 

0077  18 

in 

INC 

RO 

;  COURSE  TUNE  LOCATION 

0078  7411 

112 

CALL 

SENDA 

007 A  B826 

113 

NOV 

R0f#026H 

J  NOISE  LOCATION 

007C  BOOF 

114 

NOV 

PR0.40FH 

:  NOISE  TO  MIDRANGE 

007E  7411 

115 

CALL 

SENDA 

0080  18 

116 

INC 

RO 

5  ENABLE  LOCATION 

0081  e0F6 

117 

NOV 

PRO » #366Q 

;  li/iio/iio 

0083  7411 

118 

CALL 

SENDA 

0085  18 

119 

INC 

RO 

J  AMP  LOCATION  28H  FOR  CHANNEL  A 

0086  BOOD 

120 

NOV 

PRO i 40DH 

1  NAY  AMP 

0088  7411 

121 

CALL 

SENDA 

122 

008A  BAOE 

123 

NOV 

R2.414D 

!  CALL  14  nsec  DELAY  PER  LOOP 

008C  742C 

124 

125 

126 

CALL 

DELAY 

!  TOTAL  LOOP  TINE  =  .014  x  <R3>  =  1,4  SEC 

008E  EB94 

DJNZ 

R3 » GYDOC 

1  JUMP  TO  CHANGE  FREQUENCIES 

0090  7422 

127 

CALL 

RESGAA 

1  OTHERWISE  SILENCE  THE  PSG  AND 

0092  2400 

128 

JHP 

LEXPLO 

;  JUMP  TO  LAUNCH  EXPLOSION 

129 

0094  FB 

130  GYDOC: 

NOV 

A)R3 

0095  129D 

131 

JBO 

GYRAA 

1  CHANGE  FREQUENCIES 

0097  B82E 

132 

MOV 

R0.402EH 

0099  14A3 

133 

CALL 

GYR6B 

009B  046B 

134 

JMP 

GYSET 

0090  683E 

135  gyraa: 

NOV 

RO?*03EH 

009F  14A3 

136 

CALL 

GYRB6 

00 A 1  046B 

137 

JMP 

GYSET 

138 

00A3  FO 

139  GYR'BB: 

NOV 

A  >PRO 

1  NEXT  TINE  THRU  LOOP  FREQ'S  *1  S  42  HILL 

00A4  96AC 

140 

JN2 

GYRCC 

1  SOUND  HIGHER 

00A6  18 

141 

INC 

RO 

00A7  FO 

142 

NOV 

A*  PRO 

!  i i i i  FREQ  PERIODS  MUST  BE  GREATER  THAN 

00A8  07 

143 

DEC 

A 

;  200  OR  THE  SOUND  HILL  NESS  UP  HHEN  OVERFLOW 

00A9  AO 

144 

NOV 

PRO » A 

1  OCCURS  HERE"" 

OOAA  C8 

145 

DEC 

RO 

OOAE'  FO 

146 

MOV 

A  rPRO 

00 AC  07 

147  GYRCC! 

DEC 

A 

OOAD  07 

148 

DEC 

A 

OOAE  AO 

149 

MOV 

PRO  »A 

;  DECREMENT  EACH  FREQUENCY  BY  2 

OOAF  93 

150 

RETR 

151 

152  Jxxxxxixxxxxxxxiixxxxxxixxixxxxxixxxxxxxxxxxiixxxiixixixxxiixxixixxxxxxxxxixx 


153 

0100  154  ORG  100H 

155 

156  JXXXXXIXXXXXIXXXIIXXXIXXUXI 

157 

158  ;  LAUNCH  EXPLOSION  FOR  -  PSG-B  .  CHANNEL-A 

159 

0100  7427  160  LEXPLO!  CALL  RESGBB  J  CLEAR  OUT  PSC-B 

161 

0102  80  162  NOVX  A* PRO  !  START  PULSE  TO  TIMER 


LOC  OBJ 


SEQ 


SOURCE  STATEMENT 


f'i 


m 


& 


163 

0103  B826 

164 

MOV 

R0»4026H 

0105  B01F 

165 

MOV 

BR0»#01FH 

0107  7^00 

166 

CALL 

SENDS 

0109  18 

167 

INC 

RO 

OlOA  60F7 

168 

MOV 

8R0' 43670 

OlOC  7100 

169 

CALL 

SENDS 

010E  18 

170 

INC 

RO 

010F  B010 

171 

MOV 

BROfllOH 

0111  7100 

172 

CALL 

SENDS 

0113  B82B 

173 

MOV 

R0-402SH 

0115  8000 

174 

MOV 

BROf  *0 

Oil?  7100 

175 

CALL 

SENDS 

0119  18 

176 

INC 

RO 

Oil  A  B020 

177 

MOV 

BR0-4020H 

011C  7400 

r  8 

CALL 

SENDS 

01  IE  18 

179 

INC 

RO 

01  IF  BOOO 

180 

MOV 

BR040 

0121  7100 

181 

CALL 

SENDS 

182 

0123  55 

183 

STRT 

T 

184 

0124  8907 

185 

MOV 

R1,*7D 

0126  7433 

186 

CALL 

DALAY 

187 

NOISE  LOCATION 
NOISE  PERIOD  VALUE 

ENABLE  LOCATION 
11/110/111 


;  AMP  LOCATION  FOR  CHANNEL  A 
J  ENABLE  ENVELOPE 

!  FINE  TUNE  ENVELOPE  LOCATION 
;  FINE  TUNE  ENV  VALUE 

»  COURSE  TUNE  ENVELOPE  AT  2CH 
!  COURSE  TUNE  VALUE 

!  ENVELOPE  SHAPE/CYCLE 
!  DECAY 


I  DELAY  0.8  SEC  TILL  BURN 


188 

189 


lumnmmmraifflrairamnurarammmmraiirammiin 


190  ; 

ROCKET 

BURN  ROUTINE 

— -  PSG-A  f  CHANNEL-B 

« 

0128  7427 

191 

192 

CALL 

RESGBB 

J  SILENCE  8 

012A  7422 

193 

CALL 

RESGAA 

f  CLEAR  OUT  PSG-A 

191 

012C  SB AO 

195 

MOV 

R3.4160D 

:  LOOP  COUNTER 

012E  B8?9 

196 

MOV 

R0r4029H 

:  AMP  LOCATION  FOR  B 

'/,*■ 

0130  SOOF 

197 

MOV 

6R0  r ♦OFH 

;  INITIAL  VALUE 

P 

0132  A5 

198 

CLF: 

FI 

i  AMP  FLAG 

•  '■ 

*V- 

199 

lV- 

0133  6826 

200  burn: 

MCV 

R0»#026H 

:  NOISE  LOCATION 

/>. 

0135  SO IF 

201 

MOV 

BP0-41FH 

;  NOISE  PERIOD  VALUE 

0137  71H 

202 

CALL 

SENDA 

Mi 

0139  18 

203 

INC 

RO 

i  ENABLE  LOCATION  27H 

013A  80EF 

201 

MOV 

BR0*4357Q 

;  li/ioi/iu 

*-  .  *• 

013C  7111 

205 

CALL 

SENDA 

;  AMP  LOCATION  29H  FOR 

'-V- 

013E  8829 

206 

MOV 

R0»*02?H 

0140  FS 

207 

MOV 

AiR3 

i  «  - 

0111  921D 

208 

JB4 

NATT 

V 

r#. 

0113  764E 

209 

JF1 

CHAP 

0145  FO 

210 

MOV 

A.BRO 

\ 

0146  C64E 

211 

JZ 

CHAP 

0118  07 

212 

DEC 

A 

,■  /-■ 

0149  AO 

213 

MOV 

BRO.A 

4 

01 1A  85 

211 

CFi 

FI 

k#. 

s.  * 

0148  244E 

215 

JMP 

CHAP 

0140  A5 

216  NATT! 

CLF: 

FI 

014E  7111 

217  chap: 

CALL 

SENDA 

t' \ 


I  ‘  - 

t  • 


180 


LOC  OBJ 


SEQ 


SOURCE  ST ATEHEHT 


0150  E'AOA 

218 

219 

MOV 

R2f#10D 

J  CALL  A  10  MSEC  DELAY  PER  LOOP 

0152  712C 

220 

CALL 

DELAY 

0151  EB33 

221 

222 

DJNZ 

R3  r  BURH 

223 

221  iiniiiiiiiinmuiiiiminiiiiiimmmuimimiiuiiiiiiiiimim 


225 

226  !  FADE  AWAY  ROUTINE  ON  PSG-B  CHANNEL  8 

227 


0156  7122 

228 

CALL 

RESGAA 

0158  7122 

229 

CALL 

RESGAA 

015A  A5 

230 

CLP 

FI 

AMF  CONTROL  FLAG 

0158  BBFE 

231 

MOV 

R3<#0FEH 

LOOP  COUNTER 

015D  8822 

232 

MOV 

R0.1022H 

LOCATION  OF  FINE  TUNE 

015F  8000 

233 

MOV 

8R0>I0 

INITIAL  VALUE 

0161  8829 

231 

MOV 

R0.I029H 

LOCATION  OF  AMP  CHANNEL  6 

0163  800F 

235 

MOV 

@RO.*OFH 

INITIAL  AMP  TO  MAY 

236 

0165  8822 

237  whistl: 

MOV 

R0*#022H 

FINE  TUNE  LOCATION 

0167  10 

238 

INC 

m 

INCREMENT  FINE  TUNE  PER  LOOP 

0168  ?100 

239 

CALL 

SEND8 

016A  18 

210 

INC 

RO 

COURSE  TUNE  LOCATION 

0168  8001 

211 

MOV 

PRO  *  # 1 

COURSE  TUNE  VALUE 

016D  7100 

212 

CALL 

SEND8 

016F  8826 

213 

MOV 

R0.I026H 

NOISE  PERIOD  LOCATION 

0171  800F 

211 

MOV 

8R0<#0FH 

MIDRANGE 

0173  7100 

215 

CALL 

SEND8 

0175  18 

216 

INC 

RO 

ENABLE  REGISTER  LOCATION 

0176  80ED 

217 

MOV 

PRO  ?  #3550 

11/101  '101 

0178  7A00 

218 

CALL 

SEND8 

219 

01 7A  8829 

250 

MOV 

R0»I02°H 

AMP  LOCATION  FOR  CHANNEL  A 

017C  F8 

251 

MOV 

A  r  R3 

DECREMENT  AMP  FOR  EACH  CHANGE 

017D  9288 

252 

J81 

NOCH 

017F  7 tfA 

253 

JF1 

CHAN 

0181  FO 

251 

MOV 

A  f  PRO 

ENSURE  ITS  NOT  ZERO 

0182  C68A 

255 

JZ 

CHAN 

0181  07 

256 

DEC 

A 

0185  AO 

257 

MOV 

PRO  r  A 

0186  85 

258 

CF'L 

FI 

FLAG  NOT  TO  DECREMENT 

0187  218A 

259 

JMF' 

CHAN 

0189  A5 

260  noch: 

CLP 

FI 

018A  7100 

261  CHAN! 

CALL 

SENDS 

262 

018C  8A0A 

263 

MOV 

R2r*10P 

016E  7 1 2 C 

261 

CALL 

DELAY 

DELAY  UK  LOOP  =  10  MSEC 

265 

OPO  E8«7 

266 

DJNZ 

R3. WHAFFL 

0192  7^22 

267 

CALL 

RESGAA 

CLEAR  BOTH  PSG'S 

Ol’l  7127 

268 

CALL 

RESG88 

0196  93 

269 

RETR 

270 

0197  2165 

271  whaffl: 

JMF 

WHISTL 

LOC  OBJ 


SEQ 


SOURCE  STATEMENT 


273  ixxxxxixiixixixxxxxxixxxiiixxxxxixxxixxixxxxxixxxxixxxxxxxxixxxxixxxxxxxxxx 

271 

275  ORG  200H 

276 

277  Jixxxxxxxixixixiiixxixxixxx 

278 


0200  80 

279  HITSOUl 

280 

MOVX 

A.  PRO 

;  STOP  PULSE  TO  TIMER 

0201  8826 

281 

MOV 

R0.*026H 

;  NOISE  LOCATION 

0203  B01E 

282 

MOV 

PR0.I01FH 

!  VALUE 

0205  7111 

283 

CALL 

SENDA 

0207  18 

281 

INC 

RO 

I  ENABLE  LOCATION 

0208  BODF 

285 

MOV 

PRO, *3370 

!  11/011/111 

020A  7111 

286 

CALL 

SENDA 

020C  B82A 

287 

MOV 

R0.*02AH 

;  CHANNEL  C  AMP  LOCATION 

020E  8001 

288 

MOV 

PR0,*1 

;  FIRST  EXPLOSION  AMP 

0210  7111 

289 

CALL 

SENDA 

290 

0212  BAFA 

291 

MOV 

R2 • #2500 

!  250  MSEC  DELAY 

0211  712C 

292 

CALL 

DELAY 

293 

0216  7122 

291 

CALL 

RESGAA 

295 

0218  8826 

296 

MOV 

R0,*026H 

;  NOISE 

021A  80 IF 

MOV 

PR0,*01FH 

021C  7111 

3 

CALL 

SENDA 

021E  18 

299 

INC 

RO 

;  ENABLE 

021F  800F 

300 

MOV 

PRO- 13370 

;  li/ou /in 

0221  7111 

301 

CALL 

SENDA 

0223  882A 

302 

MOV 

ROftOZAH 

;  AMP  FOR  C 

0225  800A 

303 

MOV 

PROitOAH 

0227  ’111 

301 

CALL 

SENDA 

305 

0229  BAFA 

306 

MOV 

R2.*250D 

:  250  MSEC  DELAY 

0228  7122 

30' 

CALL 

DELAY 

308 

022C  ’122 

309 

CALL 

RFSCAA 

310 

022F  882  a 

311 

MOV 

R0.I026H 

:  NOISE 

0231  80  IF 

3i: 

MOV 

PPP.*01FH 

0233  ’111 

313 

CALL 

SENDA 

0225  16 

311 

INC 

RO 

1  ENABLE 

0236  E  OOF 

315 

MOV 

PRO -*3370 

l  11/011/111 

0238  7A1 1 

316 

CALL 

SENDA 

C23A  B82A 

317 

MOV 

R0,»02AH 

;  AMP  FOR  C 

023C  8010 

318 

MOV 

PRO. *01  OH 

J  ENABLE  ENVELOPE 

023E  7111 

31° 

CALL 

SENDA 

0210  18 

320 

INC 

RO 

;  FINE  TUNE  ENV 

0211  8000 

321 

MOV 

PRO* 10 

0213  7H1 

322 

CALL 

SENDA 

0215  18 

323 

INC 

RO 

;  COURSE  TUNE  ENV 

0216  8010 

321 

MOV 

PR0.I010H 

0216  7111 

325 

CALL 

SENDA 

021A  18 

326 

INC 

RO 

;  SHAPE /CYCLE 

0218  8000 

327 

MOV 

PRO. 10 

;  SHAPE /CYCLE 


LOC  OBJ 

SEG 

SOURCE  STATEMENT 

0210  7111 

328 

CALL 

SENDA 

329 

021F  B91E 

330 

MOO 

Rlf*30D 

;  CALL  A  3  SEC  DELAY 

0251  7133 

331 

CALL 

DALAI 

332 

0253  7122 

333 

CALL 

RESGAA 

0255  712T 

331 

CALL 

RESG6B 

0257  93 

335 

RETF: 

336 

337 

innimimmmimHummmmniHimmmumiimiiiimmm 

338 

339 

SOUND  TO  INDICATE  A  GROUND  IMPACT  OR  MISS 

310 

0256  30 

311 

missou: 

HOW 

AigRO 

?  STOP  f'ULSE  TO  TIMER 

312 

0259  6826 

313 

MOO 

R0r#026H 

;  EXPLOSION  TO  APPEAR  ON  F'SG-E  CHANNEL -C 

0256  60 IF 

311 

MOO 

@ftO • ♦01FH 

025D  7100 

315 

CALL 

SEND6 

025F  18 

316 

INC 

RO 

1  ENABLE  LOCATION 

0260  60DF 

317 

MOO 

@R0f#3370 

1  11/011 '111 

0262  7100 

316 

CALL 

SEND6 

0261  682 A 

319 

MOO 

RvMOZAH 

1  AMR  LOCATION  FOR  C 

0266  6010 

350 

MOO 

@R0»*010H 

1  ENABLE  ENOELOPE 

0268  7100 

351 

CALL 

SEN06 

026A  18 

352 

INC 

RO 

1  ENOELOPE  FINE  TUNE  LOCATION 

0266  6000 

352 

MOO 

PRO • tO 

1  VALUE 

026D  7100 

351 

CALL 

SEND6 

02 6F  18 

355 

INC 

RO 

;  ENVELOPE  COURSE  TUNE  LOCATION 

0270  6010 

356 

MOO 

PRO » #010H 

;  VALUE 

0272  7100 

357 

CALL 

SEND6 

0271  18 

358 

INC 

RO 

1  ENVELOPE  SHARE 'CYCLE  LOCATION 

0275  6000 

359 

MOO 

PRO*  *0 

027'  7100 

360 

CALL 

SEND6 

361 

0279  69 IE 

362 

MOO 

Rlf»30D 

1  CALL  A  2.0  SECOND  DELAY 

0276  7132 

363 

CALL 

DALAY 

361 

02?D  7122 

365 

CALL 

RESGAA 

02'F  ’I” 

366 

CALL 

RESG66 

0281  93 

367 

RETF 

368 

369 

lixiiiixxxiixixxxxixxxixxxxxixxxixxziiixixxiixxiixxxxxxxxxxiixixxiiixxixixx 

370 

371 

1 

INTERRUPT  t'QUTINE 

TO  SET  REGISTERS  RBO  R5-R6.R7 

372 

373 

EOF:  ACC 

r  I]  — 

R60  R5  GETS  FFH  DESIGNATES.  TRIGGER  PULL 

371 

» 

l  I 

=  10  — 

'  F:t  *  FFH  •  IMPACT-HIT 

375 

i 

l  1 

=  01 

*  R7  1  FFH  *  IMF  ACT-MISS 

376 

377 

t 

RBO  RI  RESERVED  HERE 

378 

0282  C5 

379 

interr: 

SE1. 

R60  ; 

ENSUFE  REGISTER  PAN!  0 

0287  AC 

380 

MOO 

R 1 »  A  r 

TEMPORARY  STORAGE 

0281  O6 

381 

IN 

a. Ri  ; 

GRAB  DATA 

0285  328E 

382 

J61 

INCONT 

LOC 

08J 

SEQ 

SOURCE  STATEMENT 

0287 

1297 

383 

jbo 

IHPHIS  ; 

ACC  = 

01 

0289 

4499 

384 

JNF 

INTRET 

0288 

128F 

385 

incont: 

JBO 

INTRIG  J 

ACC  = 

11 

0280 

4493 

386 

JHF' 

IHPHIT  ; 

ACC  = 

10 

387 

028F 

80FF 

388 

intrig: 

HOV 

R5 • tOFFH 

!  FOR  TRIGGER  PULL 

0291 

4499 

389 

JHP 

INTRET 

0293 

8EFF 

390 

ihphit: 

MOV 

R6»*0FFH 

;  FOR  IMPACT-HIT 

0295 

4499 

391 

JMF 

INTRET 

0297 

8FFF 

392 

ihphis: 

MOV 

RMOFFH 

J  FOR  IHFACT-MISS 

393 

0299 

FC 

394 

intret: 

MOV 

A.R4 

!  RESTORE  ACCUMULATOR 

029A 

8C14 

305 

iloofa: 

MOV 

R4f*20D 

!  DELAY  100  usee  TO  ALLOW  INTERRUPT  LINE 

029C 

EC9[ 

396 

inloop : 

DJNZ 

R4.INL00F 

:  TO  RETURN  HIGH 

029E 

869A 

39’ 

JNI 

ILOOPA 

:  KEEP  LOOPING  TILL  INTERRUPT  RETURNS  HIGH 

02  AO 

93 

398 

RETft 

399 

400 

401 

0300 

402 

Of-  G 

30CH 

40? 

404 

» 

SUBROUTINE  TO  SENE  DATA 

TO  F'SG-B 

405 

030’, 

’A'F 

406 

sends: 

ANL 

F'2*I07FH 

:  CHIP  SELECT  F'SG-B  (0111  1111.' 

407 

0302 

FO 

408 

MOV 

Af  PRO 

0303 

A9 

409 

MOV 

RlrA 

!  F'l  GETS  DATA 

0304 

F8 

410 

MOV 

A»R0 

0305 

530F 

411 

ANL 

AtIOFH 

;  ACC  GETS  ADDRESS  OF  F'SG  REGISTER 

412 

0307 

8A02 

413 

ORL 

F'2.*2 

;  PIN  BCl  SETS  F'SC  TO  ’READ’ 

0309 

90 

414 

MOVX 

PROrA 

i  'LATCH  ADDRESS*  TOGGLED  BY  WRITE  F'IN  ON  48 

030A 

°AFO 

415 

ANL 

P2 » ♦OFDH 

!  PIN  BCl  SETS  F'SG  TO  ‘INACTIVE* 

030C 

F9 

416 

MOV 

A.R1 

!  GET  DATA 

0300 

90 

417 

MOVX 

PRO  t  A 

:  ’WRITE*  TO  RSG 

418 

030E 

3A80 

419 

ORL 

P2.I080H 

:  DESELECT  F'SG-B 

C310 

93 

420 

RE  TP 

421 

422 

: 

SUBROUTINE  TO  SEND  DATA 

TO  F'SG-A 

423 

0311 

°ADF 

424 

senoa: 

ANL 

F'2  >  #OOFH 

:  CHIF  SFLECT  (1101/1111) 

425 

0313 

FO 

426 

Sanaa: 

MOV 

A 1  PRO 

0314 

A9 

427 

MOV 

R1  r  A 

J  R1  GETS  DATA 

0315 

F3 

428 

MOV 

A.RO 

0314 

530F 

429 

ANL 

A.40FH 

1  ACC  GETS  ADDRESS 

430 

0318 

8A0! 

431 

ORL 

P2.ll 

:  F'SC  TO  'READ*  STATE 

031A 

90 

432 

MOVX 

PRO.  A 

:  F'SC-  TO  ’LATCH  ADDRESS*  STATE 

0318 

9AFE 

433 

ANL 

F’Z'tOFEH 

:  BAD  TO  ’INACTIVE’  STATE 

0310 

F9 

434 

MOV 

AiF'l 

031E 

90 

435 

MOV* 

PRO.  A 

;  TOGGLE  ESC  THRU  *WRITE*  CYCLE 

031F 

8A20 

lit 

437 

ORL 

P2.*020H 

:  DESELECT  F'SG-B 

184 


LOC  0&J 
0321  93 


SOURCE  STATEHEMT 


UIIIIOHB* 


SCO 


RETR 


«*««*« 


0322  9AEF 
0329  BAlO 
0326  93 


0327  9ABF 
0329  8A90 
0326  93 


032C  B8C8 
032E  E82E 
0330  EA2C 


0332  93 


0333  BA69 
0335  792C 


0337  E933 
0339  93 


938 

939  nnlU„iuttnU"nstnttUtn'"mm~ 

«>  ”  m  k®  so“®  CE,ltw,*  nio/nu 

113  KiMEFH  :£,[»  C1CLE  mllM 

w  «E*»:  «■  rp.,,MW  • 

415  UKL 

4«A  RETR 

V,j  .  owl®  ™  «’  s0*  1011/iu' 

« £  «£5  ‘E«EE'““5£'C,ttE 
«1  0RL  , 

^  av  -  R2  X  *001  SECONDS 

«  .  Bio  soon®  -- 

« ’  .  «,  »M*  « I*** 

,56  °£nnl-  DJH2  R0 •  DL00P  ’  ,  x  t  HICR0-SEC 

«  »!»•  **  «2.0tl*1  '  E‘ 

r.cTD 

1i~  „  si  x  .100  stco®5 

«  .  Biff  soon®  --  tlELI'  ■ 

o*r°  1  cm  » 0  *«  “lsec 

M  C0JNI  RliOALAX 

969 


033A  05 
0338  AA 


,70  TWER1.  SEL 

n  umi 


033C  2398 
033E  62 


033F  18 
0390  F8 
0391  C699 


»  - 


0393  F9 
03,9  529C 


971 

972 

973 
979 

975 

976 

977 

978 

979 

980 


woo 


RBI 

R2.A 


W0V 

woo 


Ai*72D 

T»A 


;  TEWP  STORE 
;  REIHITIALI2E  TIWER 


INC 

woo 

J2 

WOV 

J62 


RO 


AiRO 

UWINC 


0396  FA 
0397  C5 
0398  93 


0399  19 
039A  6996 


039C  80 
0390  6990 


•HU 

,8i  tiwret:  wov 

982  S£L 

983  *ET* 

«5  TIWINC1.  IRC 
986 

407 

,88  T1W0UT  *.  WOVX 
,B9  INF INC' 

990 


AiRI 
tiwout 
A»R2 
RBO 


.  Boson  1W9  5"E  W 'm 

;  CHECK  FOR  20  SEC 


Ri 

tiwret 


5  INCREWENT  UF-fER  BtTE  OF  TIWER 


A18RO 

INFINL 


991 


cun 


0133 
CEL  AY  032C 
HITSOU  0200 
INTRET  0299 
RES GM  0322 
TIHOUT  031C 


CHAN  0J8A 
W-OOP  032E 
ILDOPA  0Z9A 
WfRIG  028F 
RESGBB  0327 
EIHRET  0316 


CHAP  oi IE 
COLOOP  0030 
INPHIT  029 3 
LEXPLO  0100 
SAHAA  0313 
TRICER  003F 


CHASE  001 A 
CYDOC  0091 
MKIS  0297 
HAL  OOP  0021 
SEfflA  031 1 
HHAFFL  0197 


CHUHIT  0026 
CYRAA  0090 
WONT  0286 
HISSOU  0258 

sfwe  030(. 

HH1STL  0165 


CHKH1S  0036 
CYR66  00A3 
INFINL  0310 
HATT  01  ID 
7EHAR  0009 


CLEAR  0016 
GYRCC  00 AC 
INLOOP  029C 
NOCH  0189 
TIHER  033A 


OALAY  0333 
Sr$ET  0066 
INTER*  0282 
RESET  0006 
IIHINC  0319 


KSMLrcmm,  mtmm 


186 


IOC  OBJ 

SEQ 

SOURCE  STATEHEWT 

1  5 

5  NOV  1982 

La. 

2 

3 

i 

5 ; 

RETURN  FIRE  ROUTINE  FOR  STAGS-TON 

5 

6 

Vj 

OOOO 

7 

ORG 

0 

r 

oooo  oioe 

8 

JMF' 

OBH 

9 

10 

0003 

11 

ORG 

3 

* 

0003  0527 

12 

JNP 

REFIRE 

•  • 
c, 

13 

mJU 

m 

15 

ly 

000" 

15 

ORG 

7 

000'  1609 

16 

JTF 

TENAF 

w*. 

0009  0527 

F  TENAP! 

JNP 

REFIRE 

18 

»* 
*  . 

19 

S 

0008 

20 

ORG 

OBH 

V 

000£:  23FF 

21 

NOV 

A-50FFH 

rm' 

m“* 

OOOD  39 

22 

OUTL 

PI. A 

5  INITIALIZE  THE  PORTS 

r; 

OOOE  30 

23 

OUTL 

P2fA 

•  * 

25 

•V 

OOOF  99FE 

25 

ANL 

PMOFEH 

5  SET  BC1  LON 

£ 

0011  9AFE 

26 

ANL 

P2.50FEH 

;  RESET  THE  PSG 

£ 

0013  8A01 

0? 

L/ 

ORL 

P2f#l 

9 

0015  75 

28 

ENTO 

CLK 

»  ENABLE  CLOCK  FOR  PSG 

29 

0016  23 FF 

30 

NOV 

Af#OFFH 

0018  62 

31 

NOV 

T»A 

}  ENABLE  TINER/COUNTER  INTERRUPT 

u-’-J 

001?  25 

32 

EN 

TCNTI 

g 

001A  55 

33 

STRT 

CNT 

0018  05 

35 

EN 

I 

35 

£ 

001C  8802 

36 

NOV 

R0.52 

;  CLEAR  OUT  ALL  RAN  LOCATIONS 

i: 

001E  B93E 

37 

NOV 

Rl» 5620 

0020  27 

38  clear; 

CLP 

A 

0021  AO 

39 

NOV 

BROfA 

0022  18 

50 

INC 

RO 

0023  E920 

51 

DJNZ 

Rif CLEAR 

52 

0025  0525 

53  look: 

JNP 

LOOK 

I  LOOP  FOR  RETURN  FIRE  CALLED 

55 

r*T" 

»*,• 

0027  A5 

55  refire:  clr 

FI 

5  AHPLITUOE  FLAG 

.** 

0028  BfFE 

56 

NOV 

R7f»0FEH 

f  LOOP  COUNTER 

002A  BE01 

57 

NOV 

R6f  ♦  1 

1  INITIAL  FINE  TUNE  VALUE  FOR  WHISTLE 

V, 

V, 

002C  BOOF 

58 

NOV 

R5flOFH 

;  INITIAL  AHPLITUDE  FOR  WHISTLE 

l' 

59 

m 

002E  8?01 

50  HHISTi:  ORE 

PI » #1 

5  6C1  SETS  PSG  TO  ’READ* 

0030  2? 

51 

CLR 

A 

0031  90 

52 

NOVX 

0RO-A 

!  LATCH  FINE  TUNE  ADDRESS 

187 

S 

►v  v 
1‘-  ■-  ■■ 

10T' 


I  m  "  T* 
>'■ 

& 

w 

1*2! 


LOC  OBJ  SEQ 


SOURCE  STATEHEHT 


0032  99FE 
0034  FE 
0035  90 

0034  8901 
0038  2301 
003A  90 
0038  99fE 
003D  2301 
003F  90 

0040  8901 
0042  2304 
0044  90 
0045  99FE 
0047  230F 
0049  90 

004A  8901 
004C  2307 
004E  90 
004F  99FE 
0051  23F6 
0053  90 

0054  FF 
0055  9240 
0057  7461 
0059  FO 
00 5A  C661 
005C  CO 
0050  85 
005E  0461 
0060  A5 

0041  8901 
0063  2308 
0065  90 
0066  99FE 
0068  FD 
0069  90 

006A  BA05 
006C  1485 

006E  IE 
006F  EF2E 

0071  9AFE 
0073  8A01 

0075  8901 
0077  2304 
0079  90 
007A  99FE 


53 

ANL 

PlrlOFEH 

54 

MOV 

A.R6 

55 

HOW 

PROtA 

54 

57 

ORL 

PI. 41 

58 

MOV 

Atll 

59 

MOVX 

PROtA 

60 

ANL 

PltlOFEH 

61 

NOV 

Aril 

62 

MOVX 

PROtA 

43 

64 

ORL 

Plril 

45 

MOV 

A. 46 

46 

MOVX 

PROtA 

47 

ANL 

PltlOFEH 

68 

MOV 

AtlOFH 

69 

MOVX 

PROtA 

70 


71 

ORL 

Plril 

72 

MW 

A. 47 

73 

MOVX 

PROtA 

74 

ANL 

PltlOFEH 

75 

MOV 

At 13660 

76 

MOVX 

PROtA 

77 

78 

MOV 

AtR7 

79 

JB4 

NOCH 

80 

JF1 

CHAN 

81 

MOV 

AtR5 

82 

JZ 

CHAN 

83 

DEC 

R5 

84 

CPL 

FI 

85 

JMP 

CHAN 

86  noch: 

CLR 

FI 

87 

88  chan: 

ORL 

Plril 

89 

NOV 

At!8 

90 

MOVX 

PROtA 

91 

ANL 

PltlOFEH 

92 

MOV 

AtR5 

93 

MOVX 

PROtA 

94 

95 

MOV 

R2rl5 

96 

CALL 

DELAY 

97 

98 

INC 

R6 

99 

OJNZ 

R7  tWHISTL 

100 

101  EXPIO:  ANL 

P2tlOFEH 

102 

ORl 

P2tll 

103 

104 

ORL 

Plril 

105 

MOV 

Atl6 

106 

MOVX 

PROtA 

107 

ANL 

PltlOFEH 

1  FINE  TUNE  VALUE 

}  LATCH  COURSE  TUNE  ADDRESS 
;  DATA  FOR  COURSE  TUNE 

;  NOISE  PERIOO  ADDRESS 
;  MIDRANGE 

;  ENABLE  REGISTER  ADDRESS 
?  CHANNEL  A  ONLY 

;  JUMP  FOR  EACH  1/16  OF  TOTAL  LOOP 
i  PREVENTS  OVER  DECREMENTING 
5  GET  AMP 
5  CHECK  FOR  ZERO 
}  OTHERWISE  DECREMENT  AMPLITUDE 

;  AMPLITUDE  LOCAnON 

}  CALL  A  5asec  DELAY  PER  LOOP 
}  INCREMENT  FINE  TUNE 
J  ERASE  All  LOCATIONS 

5  LATCH  NOISE  ADDRESS 


188 


'  'jt  1  r.  *r  •  ■  r 


LOC  OBJ 

SEQ 

SOURCE  STATEMENT 

007C  231F 

108 

NOV 

A.901FH 

007E  90 

109 

MOVX 

PRO.A 

110 

007F  8901 

111 

ORL 

Plr#l 

0081  2307 

112 

MOV 

A*I7 

0083  90 

113 

MOVX 

PRO.A 

0081  99FE 

111 

AML 

Pl.OOFEH 

0086  23ED 

115 

MOV 

A.0355Q 

0088  90 

116 

MOVX 

PRO.  A 

117 

0089  8901 

118 

ORL 

Pl.tl 

008B  2309 

119 

MOV 

A>#9 

008D  90 

120 

MOVX 

8R0.A 

008E  99FE 

121 

ANL 

Pl.tOFEH 

0090  2310 

122 

MOV 

A.0010H 

0092  90 

123 

MOVX 

PRO.  A 

121 

0093  8901 

125 

ORL 

Pl.ll 

0095  230B 

126 

NOV 

A.tOBH 

0097  90 

127 

MOVX 

PRO.A 

0098  99FE 

128 

ANL 

Pl.OOFEH 

009A  27 

129 

CLR 

A 

009B  90 

130 

MOVX 

PRO.A 

131 

009C  8901 

132 

ORL 

Pl.tl 

009E  230C 

133 

HOV 

A.tOCH 

OOAO  90 

131 

MOVX 

PRO.A 

OOfll  99FE 

135 

ANL 

Pl.OOFEH 

OOA3  2310 

136 

HOV 

A.I010H 

00A5  90 

137 

MOVX 

PRO.A 

138 

00A6  8901 

139 

ORL 

Pl.#l 

00A8  2300 

110 

MOV 

A.IODH 

OOAA  90 

111 

MOVX 

PRO.A 

OOA6  99FE 

112 

ANL 

Pl.OOFEH 

OOAO  27 

113 

CLR 

A 

OOAE  90 

111 

MOVX 

PRO.A 

115 

OOAF  BAFF 

116 

MOV 

R2.I0FFH 

0061  1165 

117 

CALL 

DELAY 

118 

0063  0163 

119  OLOOP ! 

JMP 

OLOOP 

150 

0065  B8C8 

151  delay: 

HOV 

R0.00C8H 

0067  E887 

152  dloop: 

DJNZ 

RO.DLOOP 

0069  EA65 

153 

DJNZ 

R2. DELAY 

0066  93 

151 

RETR 

155 

156 

157 

END 

USER  SYNBOLS 

CHAN  0061 

CLEAR  0020 

DELAY 

0065  DLOOP 

REFIRE  0027 

TENAR  0009 

HHISTL  002E 

i  ENABLE  CHANNEL  B  ONLY 
!  li/101/101 

J  CHANNEL  B 

!  ENABLE  ENVELOPE 

;  FINE  TUNE  ADDRESS 

;  COURSE  TUNE  ADDRESS 

5  ENVELOPE  SHAPE/CYCLE 

;  DELAY  255  NSEC 

*  DELAY  1  kscc  PER  R2  BIT 

0067  EXPLO  0071  LOOK  0025  NOCH  0060 


OLOOP  0063 


ASSENBLY  COMPLETE*  NO  ERRORS 


-«r 


*.T"T 


u 

y.--- 


f‘.V? 


b 


i 


42 

V  V 

;>;v 


LOC  Q6J 


^:v:v:v^:v-v.y.v- 


SEQ 


1 

2  t 

3 


j  > 
6  : 


8 

9 

10 

11 

12 

13 

11 

15 

16 
17 


13 

11 

15 

16 
17 


SOURCE  STATEMENT 


DECEMBER  15*  1982 


THIS  PROGRAM  IS  DESIGNED  TO  PASS  DATA  FROM  A  HOST  COMPUTER  TO  5 
STEPPER  MOTOR  CONTROLLERS  (CY5I2-1  THRU  -5).  IN  TURN*  THE  8711 
uC  PASSES  POSITIONAL  INFORMATION  IN  THE  FORM  OF  A  16  BIT  COUNT  TO 
THE  HOST  FOR  EACH  CONTROLLER  WHEN  REQUESTED. 


PORTi:  (OUTPUT) 
P10-P16 
P17 


DATA  BUS  TO  CY512'S 
N/C 


P0RT2!  (CONTROL) 
P20-P23 
P21-P25 
P26 


BUS  TO  8213  I/O  EXPANDER’S  A  t  B 
N/C 


CS/  FOR  8213-A 


18 

• 

9 

P27  CS/  FOR  8213-B 

.V 

19 

20 

21 

i 

8213-A  PORT  FUNCTIONS  ARE  AS  FOLLOWS! 

£ 

22 

9 

P10  <-- 

CHIP  SELECT  CY512-1 

P50 

<— 

PULSE  OUTPUT  FROM  CY512-1 

23 

• 

t 

P11 

1  *  CY512-2 

P51 

*  *  •  CY512-2 

4 

21 

• 

9 

P12 

1  *  CY512-3 

P52 

<— 

*  •  *  CY512-3 

25 

a 

9 

P13 

*  *  CY512-1 

P53 

<-- 

*  *  *  CY512-1 

26 

Li 

27 

9 

P60  <- 

DIRECTION  FROM  CY512-1 

P70 

<- 

BUSY/REAOr  FRO M  CY512-1 

s 

f/ 

’■V 

28 

a 

9 

P61  <-- 

*  *  CY512-2 

P71 

<" 

•  /  *  *  CY512-2 

29 

a 

9 

P62  <-- 

*  *  CY512-3 

P72 

<-- 

•  /  ■  *  CY512-3 

30 

9 

P63  <~ 

*  ‘  CY512-1 

P73 

<” 

1  /  ’  *  CY512-1 

*.\ 

31 

32 

9 

8213-6  PORT  FUNCTIONS  ARE  AS  FOLLOWS.* 

r 

A 

33 

31 

a 

9 

P10  <-- 

SOFTWARE  RESET  CY51Z-1 

P50 

<— 

RUN  SIGNAL  FROM  CY512-1 

? 

35 

9 

P11  <-- 

*  *  CY512-2 

P5Z 

( _ 

■  *  ’  CY512-2 

wj 

36 

9 

P12  <-- 

*  *  CY512-3 

P53 

/ _ 

\ - 

■  •  *  CY512-3 

l" 

37 

a 

9 

P13  <- 

*  1  CY512-1 

P51 

<  — 

*  *  ‘  CY512-1 

5 

38 

39 

9 

P60  <-- 

BUSY/READY  FROM  CY512-5 

P70 

<- 

SOFTWARE  RESET  CY512-5 

gj 

10 

a 

9 

P6i 

DIRECTION  FROM  CY512-5 

P71 

<— 

RUN  SIGNAL  FROM  CY512-5 

V 

11 

a 

9 

P62  <~ 

CHIP  SELECT  CY512-5 

P72 

N/C 

12 

a 

9 

P63  <-- 

PULSE  OUTPUT  FROM  CY512-5 

P73 

<— 

N/C 

V 

TEST  PINS!  T1  USED  AS  INTERRUPT  TO  COUNT  THE  POSITION  OF  THE  CY512 


0000 

18 

ORG 

0 

0000  0108 

19 

JMP 

OBH 

50 

0003 

51 

ORG 

3 

0003  017C 

52 

JMP 

COUNT 

(RESERVE  INTERRUPT  LOCATIONS 


(  COUNT  ROUTINE 


191 


H 


v. . 

— »  -  « -« . 


«*  , 


LOC  08J 

SEO 

SOURCE  STATEMENT 

53 

0006 

51 

ORG 

OSH 

0006  23FF 

55 

MOL1 

AflOFFH 

J  INITIALIZE  PORTS  1  i  2 

0000  3? 

56 

OUTL 

PI » A 

OOOE  3A 

57 

OUTL 

P2*A 

58 

OOOF  9  ABF 

59 

AML 

P2,*0BFH 

5  SELECT  8213-A  1011/1111 

0011  230F 

60 

MOV 

A»*OFH 

0013  3C 

61 

MOVD 

PI, A 

i  WRITE  F  TO  OUTPUT  PORT  FOR  CHIP  SELECT 

0011  30 

62 

MOL'D 

P5,A 

J  INPUT  PORT  FOR  PULSE 

0015  3E 

63 

HOMO 

P6,A 

!  INPUT  PORT  FOR  DIRECTION 

0016  3F 

61 

MOW) 

P7,A 

}  INPUT  PORT  FOR  BUSY /READY 

0017  8A10 

65 

ORL 

P2,*010H 

5  DESELECT  8213-A  0100/0000 

0019  9A7F 

66 

AML 

P2,*0?FH 

5  SELECT  8213-6  0111/1111 

0016  230F 

67 

MOV 

A,«0FH 

0010  3C 

68 

MOVC 

PI, A 

5  WRITE  F  TO  SOFTWARE  RESET  LINES 

001E  3D 

69 

MOVO 

P5,A 

;  INPUT  PORT  FOR  RUN 

001F  3E 

70 

MOVD 

P6,A 

5  INPUT  PORT  FOR  CY512-5 

0020  3F 

71 

MOVD 

P7,A 

!  OUTPUT  PORT  FOR  CY512-5 

0021  8A8C- 

72 

ORL 

P2.1080H 

5  DESELECT  8213-6  1000/0000 

73 

0023  6802 

71 

MOV 

R0,*2 

;  RAM  LOCATION  POINTER 

0025  693E 

75 

MOV 

R1,*62D 

;  COUNTER 

0027  27 

76  CLEAR 1 

CLR 

A 

0028  AO 

77 

MOV 

PRO, A 

?  CLEAR  OUT  ALL  RAM  LOCATIONS 

0029  18 

78 

INC 

RO 

002A  E927 

79 

DJNZ 

Rl, CLEAR 

002C  A8 

80 

MOV 

RO,A 

0020  A9 

81 

MOV 

Rl ,  A 

82 

002E  31C1 

83 

CALL 

RESET 

i  RESET  ALL  THE  CY512‘S 

81 

QiJ  9  AAA AAi 

86 

k  •  A  •••  AAW 

IAI1AIBAIA1 

0030  0630 

87  start: 

JNI6F 

START 

;  MAIN  LOOP  ROUTINE 

0032  22 

88 

IN 

A,D66 

0033  AA 

89 

MOV 

R2»  A 

»•  TEMP  STORAGE  OF  DATA 

0031  0351 

90 

XRL 

A,1051H 

:  CHECK  FOR  A  T  TO  GET  PRIORITY  TRACK 

0036  C63A 

91 

JZ 

PRIOR 

0038  2100 

92 

JMP 

ISERV 

*  JUMP  IF  TRACK  NUMBER  OR  ’P* 

93 

003A  D63A 

91  prior: 

JNI6F 

PRIOR 

,*  LOOP  TILL  PRIORITY  TRACK  NUMBER  APPEARS 

003C  22 

95 

IN 

A,D66 

0030  5118 

96 

CALL 

XLATE 

;  GET  MASK  IN  R6 

003F  FE 

97 

MOV 

A,R6 

0010  05 

98 

SEL 

R61 

0011  AO 

99 

MOV 

R5,A 

}  SET  MASK  IN  R5 

0012  C5 

100 

SEL 

R60 

0013  0130 

101 

JMP 

START 

102 

Jvw  f  Illlll 

101 

105  ; 

THIS  ROUTINE  KEEPS  COUNT  OF  THE  PRIORITY  TRACK  AND  SENDS  THIS  COUNT 

106  ; 

WHEN  CALLED  FOR 

(MSB  FIRST).  IF  A  ,PI  IS  SENT  THEN  THE  MOTORS  STOP. 

LOC  OBJ 

S£Q  SOURCE 

STATEMENT 

0045  9 ABF 

108  TEST! 

ANL 

P2.40BFH 

J  SELECT  8243-A 

0047  05 

109 

SEL 

RBI 

0048  00 

no  paloop:  novo 

A.P5 

»  GET  PULSE  DATA 

0049  5D 

in 

ANL 

ArRS 

i  PRIORITY  MASK  OFF 

004A  C662 

112 

JZ 

PAGOON 

5  JUMP  OUT  OF  LOOP'  WHEN  PULSE  GOES  LON 

004C  0648 

113 

JNI8F 

PALOOP 

;  LOOP  IF  NO  INTERR  AND  PULSE  lb  HI 

114 

004E  22 

115 

IN 

At  088 

004F  0343 

116 

XRL 

A.4043H 

J  CHECK  FOP  AN  *R*  TO  STOP  MOTORS 

0051  9650 

117 

JNZ 

MOTOSP 

0053  FE 

118 

MOM 

A.R6 

.  OUTPUT  UPPER  BYTE  OF  COUNTER 

0054  02 

119 

OUT 

088.  A 

0055  8655 

120  EELEEt 

JOBF 

EELEE 

0057  FC 

121 

MOV 

A.R4 

5  OUTPUT  LOWER  BYTE  OF  COUNTER 

0058  02 

122 

OUT 

DBS. A 

0059  8659 

123  qqlqq: 

JOBF 

QQLQQ 

Q05B  0448 

124 

JHP 

PALOOP 

125 

0050  34C4 

126  motosp: 

CALL 

RESET 

1  ROUTINE  TO  STOP  MOTORS 

005F  C5 

127 

SEL 

RBO 

0060  0430 

128 

JHP 

START 

129 

0062  0£ 

130  pagoon: 

MOVD 

A.P6 

J  GET  DIRECTION 

0063  50 

131 

ANL 

A.R5 

0064  9670 

132 

JNZ 

CLOCKH 

;  JUHF  IF  IN  CLOCKMISE  DIRECTION 

0066  FC 

133  CONCLK ! 

MOV 

A.R4 

0067  956D 

134 

JNZ 

CONDEC 

;  JUMP  TO  DECREMENT  LOHER  BYTE  ONLY 

0069  FE 

135 

MOV 

A.R6 

i  GET  UPPER  BYTE 

006A  C675 

136 

JZ 

COURET 

J  JUMP  TO  PREVENT  ROLLOVER  OF  COUNTER 

006C  CE 

137 

DEC 

R6 

J  DECREMENT  UPPER  BYTE 

0060  CC 

138  CONDEC: 

DEC 

R4 

006E  0475 

139 

JMP 

COURET 

140 

0070  1C 

141  CLOCKH :  INC 

R4 

;  INCREMENT  LOHER  BYTE 

0071  FC 

142 

MOV 

A.R4 

5  TEST  LOHER  BYTE  FOR  ROLLOVER 

0072  9675 

143 

JNZ 

COURET 

0074  IE 

144 

INC 

R6 

;  INCREMENT  UPPER  BYTE 

145 

0075  00 

146  couret: 

MOVD 

A.P5 

J  LOOP  UNTIL  PULSE  GOES  HIGH 

0076  50 

147 

ANL 

A.R5 

0077  9648 

148 

JNZ 

PALOOP 

»  JUMP  WHEN  PULSE  GOES  HI 

0079  0675 

149 

JNIBF 

COURET 

;  CHECK  INTERR  ONLY  WHILE  PULSE  LOW 

0078  AA 

150 

MOV 

R2.A 

;  STORE  CURRENT  PORT  READING 

151 

007C  22 

152  count: 

IN 

A.  DBS 

i  GET  WORD 

0070  0343 

153 

XRL 

A.4043H 

i  CHECK  FOR  ,C*  TO  SEND  COUNT 

007 F  9695 

154 

JNZ 

MOSTOP 

J  OTHERWISE  A  'R*  HAS  SENT  TO  STOP  MOTORS 

0081  FE’ 

155 

MOV 

A.R6 

i  GET  UPPER  BYTE  OF  COUNTER 

0082  02 

156 

OUT 

DBB.A 

:  SEND  IT 

157 

0083  00 

158  OOLOO! 

MOVD 

A.P5 

i  CHECK  TO  SEE  IF  A  PULSE  HAS  COME  ALONG 

0084  4A 

159 

ORL 

A.R2 

0085  AA 

160 

MOV 

R2.A 

0086  8683 

161 

JOBF 

OOLOO 

?  JUMP  TILL  HOST  ACCEPTS  IT 

0088  FC 

162 

MOV 

A.R4 

}  GET  LOWER  BYTE  OF  COUNTER 

;  JUMP  TILL  HOST  ACCEPTS  IT 
}  GET  LOWER  BYTE  OP  COUNTER 


LOC  OSJ 

SEQ 

SOURCE  STATEMENT 

0089  02 

163 

OUT 

DBB.A 

i  SEND  IT 

169 

008A  OD 

165  aalaa: 

NOW 

AiP5 

0088  9A 

166 

ORL 

A.R2 

1  CHECK  AGAIN  FOR  PULSE 

008C  AA 

167 

NOV 

R2rA 

0080  868A 

168 

JOBF 

AALAA 

008F  FA 

169 

NOV 

ArR2 

0090  5D 

170 

ANL 

A»R5 

0091  9698 

171 

JNZ 

PALOOP 

0093  09’5 

172 

JMP 

COURET 

173 

0095  39C9 

179  HOSTOP! 

CALL 

RESET 

!  JUMP  TO  RESET  MOTORS 

0097  0975 

175 

JNP 

COURET 

176 

177  ;xiiiixxxxxxxxiiixxxxxxxiixxizxxxzxxxxxxxiiixixxxixxxxxxzzxxxxxiixixixxixixx 

178 

0100 

179 

ORG 

100H 

180 

181  IXXXXXXXXXIXXXXZXXXXXXZXXXXXXXXXXXXXIXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

182 

183  ; 

INTERRUPT  ROUTINE  TO  PASS  DATA  TO  THE  PROPER  CY512 

189 

0100  FA 

185  ISERV! 

NOV 

A»R2 

1  GET  TRACK  NUMBER 

0101  5916 

186 

CALL 

XLATE 

0103  FE 

187 

NOV 

A»R6 

0109  CA20 

188 

JZ 

START1 

*  DEFAULT  ON  ERROR  OR  *P*  OR  ’C*  OR  WHATEVER. 

0106  922F 

189 

J69 

L0AD5 

0108  593v 

190 

CALL 

CHECK 

010A  39D8 

191 

CALL 

RESET1 

J  RESETS  THE  CY-512  MASKED  IN  R6 

192 

010C  060C 

193  load: 

JNIBF 

LOAD 

010E  22 

199 

IN 

AtDBB 

010F  AA 

195 

NOV 

R2jA 

0110  D32A 

196 

XRL 

A f 02 AH 

?  CHECK  FOR  AN  'x*  TO  EXIT  ISERV  ROUTINE 

0112  C62<7 

197 

JZ 

JUNQ1 

0119  FA 

198 

NOV 

AfR2 

f  CHECK  FOR  AN  • ! *  TO  JUMP  TO  ALLGO  ROUTINE 

0115  D321 

199 

XRL 

Ar*021H 

0117  C62E: 

200 

JZ 

ALLQ1 

0119  FA 

201 

NOV 

A.R2 

»  TO  RESET  THE  COUNTER  LOOK  FOR  AN  ’A* 

01 1A  0391 

202 

XRL 

A.0091H 

;  OP  ’AT  HOME*  COMMAND 

01 It  9625 

203 

JNZ 

LOCON 

1  JUMP  AROUND  IF  NOT  ’A’ 

01 IE  8920 

209 

NOV 

Rlf*020H 

i  LOCATION  OF  16  BIT  COUNTER 

0120  B100 

205 

NOV 

BRlflO 

0122  19 

206 

INC 

R1 

1  UPPER  BYTE 

0123  eioo 

207 

NOV 

BRlfOO 

0125  5900 

208  locon: 

CALL 

OUTPT 

0127  790C 

209 

JNP 

LOAD 

210 

0129  2968 

211  junoi: 

JMP 

01 

0126  296? 

212  ALLOi: 

JNP 

ALLGO 

01 2D  0930 

213  STAPH : 

JNP 

START 

219 

L 1J  f •»•••» 

216 

217  ; 

ROUTINE  TO  PASS  DATA  TO  CY512-5  NO  COUNT  IS  NEEDED  6Y  THE  HOST 

NO  COUNT  IS  NEEDED  BY  THE  HOST 


LOC  OBJ 

SEQ 

SOURCE  STATEMENT 

012F  9A7F 

218 

219  LOADS! 

ANL 

F'2f#07FH 

ISEL  8213-B 

0131  230E 

220 

MOV 

A.tOEH 

0133  9F 

221 

ANLD 

P7tA 

iRESET  CY512-5 

0131  BF16 

222 

MOV 

R7,*22D 

0136  EF36 

223  CY5LQ0: 

DJNZ 

R7tCY5LQG 

0138  2301 

221 

MOV 

Aril 

013A  8F 

225 

ORIO 

P’.A 

(‘REMOVE  RESET 

013P  8A80 

226 

227 

228  LP2! 

ORL 

P2.*080H 

! DESEL  8213-8 

0130  D63D 

JNI8F 

LF'I 

013F  22 

229 

IN 

At  DBF: 

0110  AA 

230 

MOV 

R2»A 

1  TEMP  STORE 

0111  D32A 

231 

XRL 

At#2AH 

:  SEARCH  FOR  AN  ASTERISK  <’*’> 

0113  C62D 

232 

JZ 

START  1 

0115  FA 

233 

MOV 

AtR2 

0116  D321 

231 

XRL 

A.121H 

0118  C62B 

235 

JZ 

ALL01 

011A  9A7F 

236 

ANL 

P2t*07FH 

1  SEL  8213-8 

011C  OE 

237  CHECK It  MOVD 

ArP6 

01 ID  5301 

238 

ANL 

AtH 

1  CHECK  TO  ENSURE  CONTROLLER  IS  NOT  RUNNING 

011F  C61C 

239 

JZ 

CHECK 1 

!  JUMP  IF  RUNNING 

0151  OE 

210  LF'i: 

MOVO 

AtP6 

0152  5301 

211 

ANL 

A.tl 

!  CY512  READY’ 

0151  Cb5l 

212 

JZ 

LP1 

:  JUMP  IF  BUSY 

0156  FA 

213 

MOV 

AtR2 

015’  1380 

211 

ORL 

At*080H 

I  P17  LATCHED  HIGH  FOR  DISPLAY  ROUTINE 

0159  39 

215 

OUTL 

PitA 

I  MOVE  DATA  TO  PORT  1 

015A  230D 

216 

MOV 

A.*ODH 

1  1101 

015C  9F 

217 

ANLD 

P7tA 

;  SEL  CY512-5 

015D  OE 

218  IF'3! 

MOVD 

A.P6 

015E  5301 

219 

ANL 

Atll 

;  CY512  BUSY’ 

0160  9650 

250 

JNZ 

LP3 

t  LOOP  UNTIL  CONTROLLER  BUSY 

0162  2302 

251 

MOV 

At  #2 

0161  8F 

252 

ORLD 

P7tA 

1  DESEL  CY512-5 

0165  8A80 

253 

ORL 

P2t*080H 

1  DESEL  8213-B 

0167  2130 

251 

JMF' 

LF’2 

255 

256  ; 
25’ 


258  ; 

THIS  ROUTINE  SENDS  A 

*0*  &  ’CARRIAGE  RETURN’  TO  ALL  CONTROLLERS 

0169  BA11 

259 

260  ALLGO: 

MOV 

R2t#011H 

1  SEND  D  TO  ALL  CONTROLLERS 

016B  3177 

261 

CALL 

GOGETT 

016D  8A00 

262 

MOV 

R2t#0DH 

!  SEND  CARP  RET  TO  ALL  CONTROLLERS 

01 6F  3177 

263 

CALL 

GOGETT 

0171  B930 

261 

MOV 

RM030H 

1  SET  FLAG  TO  JUMP  TO  TEST  ROUTINE 

0173  BIFF 

265 

MOV 

8RM0FFH 

0175  210C 

266 

JMP 

LOAD 

»  JUMP  TO  ROUTINE  WHICH  LOOKS  FOR  COUNT 

0177  BE01 

267 

268  gogett: 

MOV 

R6ttl 

»  SEND  D  l  CR  TO  CONTROLLER  *1 

0179  318A 

269 

CALL 

GOUT 

0178  BE02 

270 

MOV 

R6t»2 

I  SAME  FOR  *2 

017D  318A 

271 

CALL 

GOUT 

017F  BE01 

272 

MOV 

R6(»1 

!  SAME  FOR  *3 

195 


^ay1‘  IvlvOyiY-v .v I X 


v-vly>j 


loc  obj 

SEQ 

SOURCE  STATEMENT 

0181  348A 

273 

CALL 

GOUT 

0183  BE08 

274 

MOO 

R6.48 

i  SAME  FOR  *4 

0185  348A 

275 

CALL 

GOUT 

0187  34A2 

276 

CALL 

GOUTS 

1  SAME  FOR  *5 

0189  83 

277 

RET 

278 

018A  5*39 

279  GOUTI 

CALL 

CHECK 

!  ENSURE  MOTOR  IS  NOT  MOVING 

01 8C  9A&F 

280 

ANL 

P2.40BFH 

1  SELECT  8243-A 

018E  OF 

281  gtloop: 

MOVE 

A.R7 

;  CHECK  READY/BUSY  LINES 

018F  5E 

282 

ANL 

A.R6 

0190  C68E 

283 

JZ 

GTLOOP 

;  JUM8  IF  CONTROLLER  BUSY 

284 

0192  FA 

285 

MOV 

A.R2 

0193  4380 

286 

ORL 

A.4080H 

»  TO  KEE8  817  HIGH 

0195  39 

287 

OUTL 

81.  A 

:  SEND  TO  CONTROLLERS 

288 

0196  FE 

285 

MOO 

A.R6 

J  SELECT  THE  CONTROLLER 

0197  3^ 

290 

CF'L 

A 

0199  ®C 

291 

*nn 

ANLD 

84.  A 

0199  OF 

^7  L 

293  GELOOf 

MOOD 

A.  87 

!  CHECK  READY /BUS 7  LINES 

019A  5E 

29  4 

ANL 

A«R6 

;  L008  UNTIL  EACH  CONTROLLER  IS  BUSY 

0198 

295 

JNZ 

GEL 00 8 

296 

019D  FE 

297 

MOO 

A.R6 

01 9E  8C 

298 

ORLD 

84.  A 

!  DESELECT  CONTROLLER 

019F  8A40 

299 

ORL 

R2.4040H 

!  OESELECT  8243-A 

01A1  83 

300 

RET 

301 

01A2  9A7F 

302  gouts: 

ANL 

R2.407FH 

;  SEL  8243-B 

01A4  OE 

303  lpia: 

MOOD 

A. 86 

01A5  5301 

304 

ANL 

A.*l 

J  CY512  READY7 

01A7  C6A4 

3C5 

JZ 

L81A 

»  L008  UNTIL  CONTROLLER  READY 

01A9  FA 

306 

MOO 

A  .82 

01AA  4380 

307 

ORL 

A.I080H 

!  817  TO  REMAIN  HIGH  TILL  DIS8LAY  ROUTINE 

01AC  39 

308 

OUTL 

81. A 

-•  MOVE  DATA  TO  80RT  1 

01AD  230D 

309 

MOO 

A • tODH 

01AF  9F 

310 

ANLD 

87,  A 

1  SEL  CY512-5 

0180  OE 

311  L83A: 

MOOD 

A  >86 

0181  5301 

312 

ANL 

A.tl 

!  CY512  BUSY’ 

0183  9680 

313 

JNZ 

L83A 

!  L008  UNTIL  CONTROLLER  READY 

0185  2302 

314 

MOO 

A, 12 

0187  8F 

315 

ORLD 

P7.A 

JOESEL  CY512-5 

0188  8A80 

316 

ORL 

R2.4080H 

,'OESEL  8243-B 

317 

018A  83 

318 

RET 

319 

320  ; 


01BB  8530 

321 

322  01 : 

MOV 

R1.4030H 

!  JUNF'  IF  FLAGS  HAVE  BEEN  SET  BY  A  ■ ' • 

016D  FI 

323 

MOO 

A.BRl 

01 BE  96C2 

324 

JNZ 

TAAT 

01C0  0430 

325 

JM8 

START 

!  MASTEF  RETURN 

01C2  0445 

326 

327  taat: 

JMP 

TEST 

9i 


LOC  OBJ 


SEQ 


SOURCE  STATEHENT 


328 

Jl7  t  »*•»»*< 

330 

AlltABIililllitl 

331  ; 

SOFTWARE  RESET  FOR  ALL  CONTROLLERS 

332 

01C1  9A7F 

333  reset: 

ANL 

P2»*07FH 

;  SELECT  8243-E: 

01C6  Z1 

331 

CLR 

A 

01C7  3C 

335 

NOVO 

P4f  A 

i  RESET  ALL  CY512S  (1  ONLY' 

OICS  230E 

336 

HOV 

ArtOEH 

J  OOOO'lllO  RESET  FOR  CY512-5 

OICA  9F 

337 

ANLD 

F'7iA 

OICE:  BFlo 

338 

MOV 

R7  »#220 

1  THIS  IS  FOR  110  MICROSECOND  DELAY 

OICD  EFCD 

339  loop: 

DJN2 

R7 » L  OOP 

OICF  230F 

340 

MOV 

A.#OFH 

01D1  3C 

341 

MOVD 

P4.A 

i  REMOVE  SW  RESET 

01D2  2301 

312 

MOV 

A  f  #  1 

!  REMOVE  SW  RESET  FOR  CY512-5 

01D1  8F 

343 

ORLD 

P7»A 

0105  8A80 

344 

ORL 

P2.4080H 

1  DESELECT  8243-8 

0107  93 

345 

RETR 

346 

347  .‘xxxixxxxxxxxxxxiiixxxxiiixxxiixxixixxxxixixxxixxixxxxxxxiiixiixiiiixxiiixxxxx 

318 

349  ; 

SOFTWARE  RESET  FOR  CONTROLLER  MASKED  IN  E !Y  R6 

350 

01D6  9A7F 

351  RESET i: 

ANL 

P2f#07FH 

:  SELECT  8243-8 

010A  FE 

352 

MOV 

A»R6 

01 OF  2' 

353 

CPL 

A 

01 DC  9C 

354 

ANLD 

P4fA 

!  RESET  PROPER  CY512 

01DD  BF16 

355 

MOV 

R7»#220 

i  THIS  IS  FOR  110  MICROSECOND  DELAY 

010F  EFDF 

356  LOOPi: 

OJNZ 

R7. LOOPI 

01E1  FE 

357 

MOV 

A*R6 

01E2  8C 

358 

ORLO 

P4  r  A 

J  REMOVE  SW  RESET  FROM  SELECTED  CY  ONLY 

01E3  8A80 

359 

ORL 

P2 » #080H 

J  DESELECT  8243-8 

01E5  83 

360 

RET 

361 

362  ixxxxxxxxxxxxxxxxxxxxxxxxx 

363 

0200 

361 

ORG 

200H 

365 

366  ; 


367 

368  ; 

OUTPUT 

ROUTINE  WHICH  PASSES  DATA  TO  THE  CONTROLLER  MASKED  IN  BY  R6 

0200  5439 

369 

370  OUTPTJ 

CALL 

CHECK 

!  MAKE  SURE  CY512  IS  FINISHED  MOVING 

0202  9ABF 

371 

ANL 

P2.#0BFH 

:  SELECT  8243-A 

0201  OF 

372  L00P3I 

MOVD 

A»P7 

J  CHECK  TO  SEE  IF  CY512  IS  READY 

0205  5E 

373 

ANL 

A*R6 

0206  C604 

371 

JZ 

L00P3 

J  IF  NOT.  CHECK  AGAIN 

0208  FA 

375 

MOV 

A*R2 

J  MOVE  DATA  TO  ACC 

0209  4380 

376 

ORL 

A»#080H 

:  P17  TO  REMAIN  HIGH  TILL  DISPLAY  ROUTINE 

0208  39 

377 

OUTL 

PlfA 

!  OUTPUT  TO  DATA  LINES 

020C  FE 

378 

MOV 

ArR6 

020D  37 

379 

CPL 

A 

!  COMPLEMENT  MASK 

020E  9C 

380 

ANLD 

PlfA 

!  SELECT  PROPER  CY512 

020F  OF 

381  LOOPi: 

MOVD 

AfF'7 

!  LOOP  UNTIL  CHOSEN  CY512  IS  BUSY 

LOC  OBJ 


SOURCE  STATEMENT 


0211  960P 

0213  FE 

0214  8C 

0215  8A40 

0217  83 

383 

384 

385 

386 

387 

388 

JN2 

MOO 

ORLO 

ORL 

RET 

LOOP4 

AiR6 

P4.A 

P2» ♦040H 

!  JUMP  IF  NOT  YET  BUSY 

;  DESELECT  PROPER  CY512 
i  DESELECT  8243-A 

390 

391  : 

THIS  TRANSLATE  ROUTINE  TAKES  A  MOTOR  NUMBER  FROM  THE  HOST  AN 

392  ; 

PRODUCES  THE  PROPER  MASK  IN  R6. 

393 

0218  07 

394  xlate: 

DEC 

A 

0219  C636 

395 

JZ 

R6IS1 

*  A  *r  SPECIFYING  MOTOR  1  HAS  SENT 

021B  07 

396 

DEC 

A 

021C  C633 

397 

JZ 

R6IS2 

;  MOTOR  ‘2‘ 

021E  0? 

398 

DEC 

A 

02 IF  C630 

399 

JZ 

R6IS3 

»  MOTOR  *3‘ 

0221  07 

400 

DEC 

A 

0222  C62D 

401 

JZ 

R6IS4 

;  MOTOR  ‘4* 

0224  07 

402 

DEC 

A 

0225  C62A 

403 

JZ 

R6IS5 

1  MOTOR  ‘5* 

0227  BEOO 

404 

MOV 

R6.40 

:  DEFAULT  ON  ERROR 

0229  83 

405 

RET 

406 

022A  BE 10 

407  R6IS5! 

MOV 

R6»*010H 

»  oooi/oooo 

022C  83 

408 

RET 

022D  BE08 

409  R6IS41 

MOV 

R6.48 

;  oooo  'iooo 

022F  83 

410 

RET 

0230  BE04 

411  R6IS3! 

MOV 

R6»#4 

5  0000/0100 

0232  83 

412 

RET 

0233  BE02 

413  R6IS2J 

MOV 

R6.#2 

;  oooo/ooio 

0235  83 

414 

RET 

0236  BE01 

415  R6IS1 ! 

MOV 

R6*#l 

!  000070001 

0238  83 

416 

RET 

417 

IlflVH 

419 

420  ; 

CHECK  TO  INSURE  THE  MASKED  IN  CONTROLLER  IS  NOT  EXECUTING  A  1 

421 

0239  9A7F 

422  CHECK! 

ANL 

P2.407FH 

i SELECT  8243-B 

023E:  OD 

423  LOOF’Q! 

MOOD 

A.P5 

.MOVE  P5  TO  A 

023C  5E 

424 

ANL 

AfR6 

.‘HAS  CY512  FINISHED  ITS  RUN’ 

023D  C63B 

425 

JZ 

LOOPQ 

5  IF  NOT.  THEN  CHECK  AGAIN 

023F  8A80 

426 

ORL 

P2.4080H 

.DESELECT  8243-B 

0241  83 

427 

RET 

428 

429 

430 

ENO 

USER  SYMBOLS 
AALAA  008A 
CONDEC  0040 
GOUTS  01AZ 
LOOP 1  01DF 
LP3A  01B0 


ALLGO  0169  ALLOl  012B  CHECK  0239  CHECK1  014C  CLEAR  0027  CLOCKN  0070  CONCLK  0066 
COUNT  007C  COURET  0075  CY5LOO  0136  EELEE  0055  GELOOR  0199  GOGETT  0177  GOUT  018A 
GTIOOF  018E  ISERV  0100  JUM01  0129  LOAD  010C  L0AD5  012F  LOCON  0125  LOOP  01CD 
L00F3  0204  LOOM  0°'  LOOPQ  023B  LPl  0151  LP1A  01A4  LP2  013D  LP3  0150 
MOST  OF'  00?5  MOTOSP  0050  OOLOO  0083  OUTF’T  0200  PAGO  ON  0062  PAL  OOP  0048  PRIOR  003A 


01  0188  OOLOO  0059 

R6IS1  0236 

R6IS2 

0233 

R6IS3 

0230 

R6ISA 

022D  R6IS5  022A 

RESET 1  0108  START  0030 

START1  0120 

TAAT 

01C2 

TEST 

00« 

XLATE 

0218 

H 

ASSErtBLT  COMPLETE t  NO  ERRORS 

RESET  01C4 


LOC  OBJ  SEQ  SOURCE  STATEMENT 

1 

i. 

3  SUPI91  PORT  1  (PI)  HILL  OUTPUT  DATA  TO  SPEECH  CHIP  (SPC* 

9  5UPI91  PORT  2  (P2)  HILL  FURNISH  CONTROL  SIGNALS 
5 

OOOO  6  ORG  0  (RESERVE  INTERRUPT  LOCATIONS 

0000  0909  7  JHP  9 

8 

0003  9  ORG  3 

0003  092A  10  JHP  ISERV  (TO  PROCESS  PHRASE 

11 
12 

13  J  PORT  2  BITS!— 

19  (  BIT  0  ==>  SPC  MR.-' 

15  (  BIT  1  ==:=  SPC  CS/ 

16  ;  BIT  2  ■»>  PAGE1.  HIGH  ==>  ROH  BANK  V 

17  ;  BIT  3  ==■  SET.  THE  ROH  SET  TO  BE  USED. 

18  (  BIT  9  ==>  CHS 

19  5  BIT  5  “>  GAIN  <LSB) 

20  5  BIT  6  «>  GAIN  (HSB) 

21  (  BIT  7  ==  GAIN  CONTROL  CLOCK 

22 

23  (  TO  (PIN  1  ON  THE  8791)  =  SPC  *INTR.'  HIGH  «>  DONE 

29 

25 


26  )H*i 

27  ( 

MAIN  TEST  PROGRAM  LOOP 

i.0  >*■*! 

29 

30 

0009 

31 

ORG 

9 

32 

0009  23FF 

33 

MOV 

A#*OFFH 

OOOB  39 

39 

OUTL 

P1#A 

OOOC  3A 

35 

OUTL 

P2#A 

36 

37 

38  ;««««  SET  GAIN  TO  1  FOR.  TEST 


0000  9A7F 

39 

ANL 

P2»I01111111B 

SLOWER  CLOCK  LINE 

OOOF  9A9F 

90 

ANL 

P2»#1001U11B 

(SET  GAIN  TO  1 

0011  8A80 

91 

ORL 

F2 » • 1 OOOOOOOP 

(RAISE  CLOCK  LINE 

0013  9A7F 

92 

ANL 

P2#*011tllllB 

(LOHEP  CLOCK  LINE 

93 

99 

95  (**  HILL  FORCE  SPC  TO  STOP  PROCESSING  ANY  STARTING  GARBAGE  AND  RESET 

96  »**  SPC  INTR  <  =  O'.  THIS  HAKES  SPC  APPEAR  BUSY  i««» 


0015  2311 

97 

98 

MOV 

Ar*UH 

;spc  (hr'=i;cs/=o;cms=i> 

001’  3A 

99 

OUTL 

P2#  A 

0018  9AFE 

50 

ANL 

P2##11111110B 

(SPC  HR/sO 

001A  8A01 

51 

ORL 

P2# 10000000 IB 

!SPC  HR/*1 

001C  8A02 

52 

ORL 

P2. #0000001  OB 

;spc  cs-'=i 

LOG  OBJ 

SEQ 

SOURCE  STATEMENT 

53 

59 

55 

OOIE  23V 

56 

MOV  A»#47H 

J320MS  SILENCE 

0020  39 

57 

OUTL  PI  * A 

iPl  DATA  OUT  TO  SPC 

58 

59 

J  P24 

P23 

P22 

P21 

P20 

60 

jspc 

CMS 

SET 

PI 

CS/ 

MR/ 

61 

62 

J  INITIAL  P2 

J  1 

0 

0 

1 

1 

63 

0021  9AE5 

64 

ANL  P2f#111001016 

;  o 

0 

0 

0 

1 

0023  9AFE 

65 

ANL  P2»#111111106 

;  o 

0 

0 

0 

0 

0025  8 AO 3 

66 

QRL  P2f #0000001 18 

:  o 

0 

0 

1 

1 

67 

68 
69  J 


70 ; 

TEST  LOOP 

0027  05 

UJ 

h  *.*■-#  m 
K  h, 

I 

0028  0426 

74  back:  jmp 

75 

BACK 

!HAIT  FOR  DATA  READY  INTERRUPT 

002A  00 

76  ISERV1  NOP 

0028  D626 

77  L03PI!  JNIBF 

LOOPI 

002D  22 

78  IN 

A>D88 

; INPUT  PACE  TO  A 

002E  AE 

79  MOV 

R6»A 

JMOVE  A  TO  R6 

002F  D62F 

80  LOOPP!  JNIBF 

LOOPP 

0031  22 

81  IN 

ArDBB 

> INPUT  WORD  TO  A 

0032  AF 

82  MOV 

R7»A 

JMOVE  A  TO  R7 

0033  D633 

83  L00P01  JNIBF 

LOOPQ 

0035  22 

84  IN 

AfDPP 

{INPUT  GAIN  TO  A 

0036  5303 

85  ANL 

A? #0000001 18 

JMASK  OFF  UPPER  PORTION 

0039  AD 

86  MOV 

R5»A 

JMOVE  A  TO  R5 

0039  144A 

87  CALL 

SETT 

.CALL  SETT 

0038  85 

88  CLR 

FO 

J CLEAR  FO  FLAG 

003C  FE 

89  MOV 

ArR6 

JMOVE  R6  TO  A 

003D  C640 

90  JZ 

CONT 

JIF  PAGE=0  JUMP  TO  CONT 

003F  95 

»1  CPL 

FO 

JIF  PAGE=l  COMPLEMENT  FO  FO  "  1 

0040  FF 

92  CONTI  MOV 

AjR7 

JMOVE  R7  TO  A 

0041  B647 

93  JFO 

CONTI 

JIF  F0=1  JUMP  TO  CONTI 

0043  1459 

94  CALL 

HRITEO 

JELSE  CALL  HRITEO 

0045  0449 

95  JMP 

LEAVE 

0047  145E 

96  CONTI!  CALL 

HRITE1 

0049  93 

97  leave:  retr 

96 

99 

004A  FE 

100  SETT!  MOV 

A»R6 

JMOVE  PAGE  TO  A 

0046  324F 

101  JB1 

SETT1 

JIF  SETT  =  h  GOTO  SETT1 

0040  0454 

102  JMP 

NOSETT 

JELSE  JUMP  TO  NOSETT 

004F  8A08 

103  SETT1!  ORL 

P2» *000010008 

JSETT  =  1 

0051  27 

104  CLR 

A 

JCLEAR  A 

0052  0458 

105  JMP 

ENDSTT 

JJUMP  TO  ENDSTT 

0054  9AF7 

106  NOSETT!  ANL 

P2f#111101118 

JSETT  =  0 

0056  53F7 

107  ANL 

A. #111101116 

JMASK  OFF  SETT 

LOC  OBJ 


SEQ 


SOURCE  STATEMENT 


0058  83 

108  ENOSTT! 
10? 
no 

RET 

0059  9AFB 

111  writeo: 

ANL 

P2»#0FBH 

#P22  =  0  ==:>  PAGE  =  0 

005B  1163 

112 

CALL 

OUTPUT 

0050  83 

113 

RET 

111 

115 

005E  8A01 

116  WRITE 1! 

ORL 

P2.#01H 

♦P22  =  1  ==■  PAGE  =  1 

0060  1163 

117 

CALL 

OUTPUT 

0062  83 

118 

RET 

119 

120 

0063  <:663 

121  OUTPUT! 

JNTO 

OUTPUT 

♦MUST  INSURE  SPC  IS  READY 

0065  39 

122 

OUTL 

F'1»A 

♦PI  DATA  OUT  TO  SPC 

123 

0066  FD 

121 

MOV 

A»R5 

;move  gain  to  a 

0067  9A7F 

125 

ANL 

P2>#01111111B 

♦LONER  CLOCK  LINE 

0069  9A9F 

126 

ANL 

P2, *100111116 

» MASK  OFF  OLD  GAIN 

006B  126F 

127 

JBO 

SETS 

♦IF  BIT  0  IS  1  THEN  JUMP  TO  SETS 

0060  0171 

128 

JMP 

TSTl 

♦ELSE  JUMF  TO  TSTl 

006F  8A20 

129  SETS! 

ORL 

P2» #001000006 

!SET  BIT  5  OF  PORT  2 

OO’l  3275 

130  TSTl! 

JB1 

SET6 

!IF  BIT  1  IS  1  THEN  JUMP  TO  SETfc 

0073  0177 

131 

JMF 

NSETt 

F  ELSE  -JUMF'  TO  NSET6 

0075  8A10 

132  SET6! 

ORL 

P2f#010000008 

♦SET  BIT  6  OF  PORT  2 

0077  00 

133  NSET6! 

NOP 

! CONTINUE 

0078  8A80 

131 

ORL 

P2f#100000006 

i RAISE  CLOCK  LINE 

007A  9A7F 

135 

ANL 

P2?*01111111B 

♦LONER  CLOCK  LINE 

136 

137 

!  P21  P23  P22  P21 

F'20 

138 

♦spc 

CMS  SET  PI  CS/ 

NR/ 

13? 

no ; 

INITIAL  P2 

!  0  ?  0/1  1 

1 

111 

007C  *AEP 

112 

ANL 

P2»#iiioiioie 

♦  0  ’0/10 

1 

007E  9AFE 

113 

ANL 

P2f*111111106 

;  o  ’o/io 

0 

0080  8A03 

111 

ORL 

P2> *000000 116 

;  o  ?  o/i  i 

1 

115 

0082  2682 

116  LOOFI! 

JNTO 

L00P1 

? WAIT  UNTIL  SPC  IS  NOT  BUSY 

0081  9A7F 

117 

ANL 

F'2 » *01 1111119 

; LONER  GAIN  CLOCK 

0086  9A9F 

118 

ANL 

P2f#100111U6 

!SET  GAIN  TO  0 

0088  8A80 

119 

ORL 

P2f*10000000B 

1 RAISE  CLOCK  LINE 

008A  9A7F 

150 

ANL 

P2f»0inilU6 

♦LONER  CLOCK  LINE 

151 

008C  83 

152 

RET 

153 

151 

END 

USER  SYMBOLS 

BACK  0028  CONT  0010  CONTI  0017  ENOSTT  0058 
LOOfF'  002F  LOOPQ  0033  NOSETT  0051  NSET6  0077 
SETT1  001F  TSTl  0071  WRITEO  005?  NRITE1  005E 


ISERV  002A  LEAVE  0019  LOOF'l  0082  LOOFI  002B 

OUTPUT  0063  SET5  006F  SET6  0075  SETT  001A 


ASSEMBLY  COMPLETE ♦  NO  ERRORS 


ISIS-II  PL/H-86  V2.1  COMPILATION  Of  NODULE  TON_START_UP_MOOULE 
OBJECT  NODULE  PLACED  IN  t F 1 : TOMST . OBJ 

CONPILER  INVOKED  BY!  PLN86  !Fl!TONST.M2  DEBUG  RON  XREF  LARGE  OPTINIZEO)  1 
TITLE < '0915  17  DECEMBER  1982') 


1  ton.start.up.nodule:  do; 

2  1  DECLARE  SCENE.COUNT  LITERALLY  ’090' .NAX_KNU.NO  LITERALLY  *010* J 

3  1  DECLARE  CARR.RET  LITERALLY  'ODH’.  SPACE  LITERALLY  '20H'»BELL  LITERALLY  ’07H’) 

I  1  DECLARE  IODATA  LITERALLY  'ODBH'.IOSTATUS  LITERALLY  ‘ODAH’.NASK  LITERALLY  ‘7FH* 

5  1  DECLARE  VECTOR.NOOE  LITERALLY  '350* .ALPHA.9010.NODE  LITERALLY  *  150  *  r 

ADN3A.N00E  LITERALLY  '300' .GRAPHICS. CLEAR  LITERALLY  ’31Q’» 

ADH3A.CLEAR  LITERALLY  '32Q' .CLEAR. ALL  LITERALLY  '330', 

HONE.CURSOR  LITERALLY  '190'. 

6  1  DECLARE  C0UNTER.2  LITERALLY  '009H' .CONTROL  LITERALLY  '0D6H', 

CNTR2H0DE  LITERALLY  ‘OVAH'.SETCOIMT  LITERALLY  '09H') 

/i  FOR  TINER  SETUP  «/ 

7  1  DECLARE  USART.CONTROL  LITERALLY  ’OOAH' .USART.NOOE  LITERALLY  ,«H‘, 

USART.COHHAND  LITERALLY  '37H*5 

8  1  DECLARE  LINE.FEED  LITERALLY  'OAH') 

9  1  DECLARE  ( DAY.SIGHT , ST ARTING.TRACK , T ARGET.SHITCH . FINAL.TRACK . 

EAST.MEST, CONTINUE)  BYTE  EXTERNAL) 

10  1  DECLARE  GUNNER.RATING  BYTE  AT  <6080H). TURNED  BYTE  AT  (6081H)) 

II  1  DECLARE  (RESPONSE. GO .NOW. NENU_NO»NENU.DONE»SCENARIO. I. PREVIOUS.RESPONSE)  BYTE) 

12  1  DECLARE  ( OK 1.0K2. TOTAL Y.OK)  BYTE) 

13  1  DECLARE  SCENARIO.BUFFER  (9)  BYTE  EXTERNAL) 

19  1  DECLARE  (RESP_1_ASCII.RESP_2_ASCII.RESP_1_NUN.RESP_2.NUH)  BYTE) 

15  1  DECLARE  ( SIGHT.FLAG » TRACK.FLAG » DONE . OK . SANE )  BYTE) 

/iiiiiiiiiuiiiiiiiniiiiiiniiiiiiiiiniiiiiiiiimiiiiiiiiiiiiiiiiiiiiini 
i  THE  SCENARIOS  ARE  LISTED  BELOM.  i 

niiiiiiiiiniiiiaiiiiiiiiiiiiiiiiiiimiiiimiiiiuniiimiiiiitnmiu/ 


16  1  DECLARE  SCENE.O  («)  BYTE  DATA  (CARR.RET)) 

DECLARE  SCENE. 1  (*)  BYTE  DATA  (' A'. CARR.RET.’H’.CARR.RET.'B'. CARR.RET. 
'S  1' .CARR.RET. 'R  225’ .CARR.RET. 'F  l'.CARR.RET.’E'. CARR.RET. 

'X  1500'. CARR.RET,’ P  2950' .CARR.RET, 'X  1000’, CARR.RET,’ C'» CARR.RET, 
•B'  .CARR.RET, T .CARR.RET,  'O’ ,*!  V*’ )) 


204 


17  1 


DECLARE  SCENE.2  <■>  BYTE  DATA  ( 1 P ’ , 01H » ' A ' , CARR.RET r  * H *  »CARR_RET » 

'8‘ »CARR_RET » ’S  1 ‘ -CARR.RET, 'R  173' .CARR.RET, 'F  1 ' .CARR.RET » '  E ' » CARR.RET  , 

•X  76  V,  CARR.RET  »'P  1600'* CARR.RET ,  *  C  ‘ » CARR.RET » ’ B ' , CARR  RET.'P  5240 1 r 
CARR.RET , '  0 '  , CARR.RET  .'QVtVP*  »02H»  'AS 

CARR.RET, 'H', CARR.RET, 'B', CARR.RET, 'S  1'fCARR.RETf'R  173' , CARR.RET, 'F  l'» 
CARR.RET » ’ E ’ .CARR.RET . • X  382 ' .CARR.RET. 1 P  1650 ' .CARR.RET .‘O' .CARR.RET . ' Q' » 

' « * . ' P ' »03H»  *  A* .CARR.RET. 'H' .CARR.RET. ‘B‘ .CARR.RET. ‘S  1 ‘ .CARR.RET, 'R  173', 
CARR.RET, 'F  1', CARR.RET, 'E', CARR.RET, 'P  1650’ .CARR.RET, 'O' .CARR.RET, 'Q' , 

’  P '  ,0W, '  A ' , CARR.RET , ' H ' .CARR.RET , ' 6 ' , CARR.RET , '  S  1 ' , CARR.RET , * R  1 ' .CARR.RET. 
•FI' .CARR.RET , 'E' .CARR.RET. 'X  436V .CARR.RET , ' C ' » CARR.RET , 1 B 1 , CARR.RET , 

•X  1000 ' . CARR.RET » ' C ' » CARR.RET » ' B ' » CARR.RET , 1 0 ' , CARR.RET , 1 Q 1 » ' i ' , 

‘ P 1 » OSH » ' A * .CARR.RET, 'H‘ .CARR.RET » ‘B1 .CARR.RET » *S  1 ' .CARR.RET, 'R  80', 
CARR.RET, 'F  r .CARR.RET, *E* .CARR.RET, ‘X  764 * .CARR.RET , * P  650 ' .CARR.RET , ‘0* , 
CARR.RET , ’ Q ‘ , 1 ' ' » 1  * 1 ) ; 

DECLARE  SCENE.3  (*)  BYTE  OATA  CP' .OIH.'A1, CARR.RET, *H‘, CARR.RET,  B*. 

CARR.RET , ‘ S  1' .CARR.RET, ‘R  173 ‘ .CARR.RET, 'F  1', CARR.RET, ‘E', CARR.RET, 

'X  764' fCARR.RET, *P  2150 ' .CARR.RET, 'C‘ .CARR.RET, 'B* .CARR.RET, 'P  5240’ , 
CARR.RET,  'O' .CARR.RET,  *8  Vi' ,  *P'  ,02H,  'A' , 

CARR.RET,’ H' .CARR.RET,’ B' .CARR. RET, 'S  1' .CARR.RET, ’R  173' .CARR.RET, 'F  1’, 
CARR.RET, 'E '.CARR.RET, 'X  382’ .CARR.RET, ’P  1650’ .CARR.RET, ’X  1091 ’ .CARR.RET, 

•P  5240’, CARR.RET, ’0’ » CARR.RET, ’0’, ’«’, ’P’,03H, ’A’, CARR.RET, *H’ , CARR.RET, 

’P’ .CARR.RET, *S  1’, CARR.RET, ’R  173’ .CARR.RET, ’F  1 ’ .CARR.RET, ’E’ .CARR.RET, 

’P  500 ’, CARR.RET, ’X  400’ , CARR.RET, ’P  O’ .CARR.RET, ’O’, CARR.RET, ’O’, ’*’,'P’, 
04H, 'A' , CARR.RET , ' H ', CARR.RET ,' B ' .CARR.RET , ’ S  1 ’ , CARR.RET , ' R  1' , CARR.RET , 

'F  1 '  .CARR.RET,  'E'  .CARR.RET,  'X  436V .CARR.RET,  ’C'  .CARR.RET,  ’B’  .CARR.RET, 

’ X  1500 ’, CARR.RET ,’ C ’, CARR.RET ,’ B ’ » CARR.RET ,’ 0 ’, CARR.RET ,’ Q ’,’ i ’,’ P ’, OSH , 

’ A’, CARR.RET, ’H’, CARR.RET, ’B’, CARR.RET, ’S  1’ .CARR.RET, ’R  80’ .CARR.RET, ’F  1’, 
CARR.RET, 'E'. CARR.RET, 'X  38V .CARR.RET, ’P  650’, CARR.RET, ’X  1091 ’ .CARR.RET, 

’P  250’ .CARR.RET, ’O’ .CARR.RET, ’0’ , 1 ! ’ , '»' >T 

DECLARE  SCENES  (D  BYTE  DATA  !'P‘, OlH.’A’, CARR.RET, 'H', CARR.RET, 'B', 

CARR.RET, 'S  1' .CARR.RET, ’R  173' .CARR.RET, 'F  1 ' , CARR.RET , ’ E ‘ , CARR.RET • 

'X  764', CARR.RET, 'P  2300' .CARR.RET, 'C' .CARR.RET, ’B’ .CARR.RET, 'p  5240' , 
CARR.RET, 'O', CARR.RET, 'O', '*','P',02H, 'A', 

CARR.RET, 'H', CARR.RET, 'B‘, CARR.RET, *S  1 ', CARR.RET, 'P  173' .CARR.RET, 'F  2', 
CARR.RET, ’E1 .CARR.RET, 'X  382' .CARR.RET , ’P  1650' , CARR.RET. ’O' -CARR.RET. 

' P P ', 03H •' A ', CARR.RET ,' H ' , CARR.RET ,'B'« CARR.RET .'«  1 ' , CARR.RET • 

'R  173' fCARR.RET , 'F  1 ', CARR.RET, 'E', CARR.RET, 'P  1650 ' , CARR.RET , ' 0 ' • CARR.RET , 

' Q F ’ , 04h , ' A ' , CARR.RET , ’ H ' , CARR.RET ,' B ', CARR.RET ,' S  1 '» CARR.RET .' R  1 ' , 
CARR.RET, *F  1’, CARR.RET, ' E ' • CARR. RET, 'X  5200’ -CARR.RET, 'C' • CARR.RET- 'B', 
CARR.RET , 1 C ' -CARR.RET , ' 0 ' , ' * ' , ' R ' ,05H, ' A ' , CARR.RET ,'H'. CARR.RET • ’ E ' , CARR.RET , 
■S  1' -CARR.RET, 'R  225' -CARR.RET, 'F  1', CARR.RET, 'E ', CARR.RET, 'P  150' -CARR.RET • 
'X  3250', CARR.RET, 'R  125' .CARR.RET, 'F  1 ' , CARR.RET, 'R  650’ -CARR.RET, 'O' , 
CARR.RET, 'O', '!', '*' ) J 

DECLARE  SCENE. 5  <D  BYTE  DATA  ( 'P' -01H, 'A' -CARR.RET, 'H' , CARR.RET- 'B' -CARR.RET, 
'S  1', CARR.RET, 'R  156' .CARR.RET, 'F  1 ' -CARR.RET , ' E ' -CARR.RET, 'R  1700', 

CARR.RET , ' C ' , CARR.RET , ' B ' , CARR.RET , ' P  5240 ' , 

CARR.RET , ' 0 ' -CARR.RET , 'Q' P ' ,02H, 'A' , CARR.RET ,'H', CARR.RET , ' B ' -CARR.RET , 
•S  1', CARR.RET, 'R  156' -CARR.RET, 'F  1 ', CARR.RET, 'E', CARR.RET, 'R  500' -CARR.RET, 
'X  400' -CARR.RET , ' R  O' -CARR.RET , ' 0 ' , CARR.RET , ' 0 ' , ' i ’ , ' P ' , 03M , ' A ' .CARR.RET , 

'H  .CARR.RET. 'B', CARR.RET, 'S  1' -CARR.RET- 'R  156' , CARR.RET, 'F  1’ -CARR.RET, 'E' , 
CARR.RET, 'X  350' -CARR.RET, 'R  575' -CARR.RET, 'X  425' -CARR.RET, 'R  0- CARR.RET, 
'O’,  CARR.RET,  'O',  '«VP'>  04H,  ’  A' ,  CARR.RET,  ’H’ .  CARR.RET,  'B' ,  CARR.RET,  'S  1', 
CARR.RET, 'R  1’ -CARR.RET, 'F  1', CARR.RET. 'E', CARR.RET, 'X  1361' .CARR.RET, 'C , 


CARR.RET  ,'B' , CARR.RET ,'X  1091' , CARR. RET t ’ C 1 .CARR.RET » 'B* -CARR.RET , '  0 ', 
CARR.RET,  'Q  V«S  'PS05H,  ’A  SCARR.RET,  'HSCARR.RET,  'B  SCARR.RET,  'SIS 
CARR.RET, 'R  100' .CARR.RET, 'F  1 S CARR. RET *'ES CARR. RET. 'X  367' -CARR.RET, 

'P  650'  .CARR.RET.'X  545SCARR.RET, 'P  500SCARR.RET. 'X  545 S CARR.RET, ‘L  2.3S 
CARR.RET . ' P  650 S CARR.RET .'OS CARR.RET . ’QS'iS’i'). 

OECLARE  SCENE.6  <■)  BYTE  DATA  < '  PS01H, '  AS  CARR.RET . '  H 1  .CARR.RET » 'BS  CARR.RET . 
'S  IS  CARR.RET  »'R  173  S  CARR.RET,  T  ISCARR.RET.’ESCARR.RET.'X  1582S 
CARR.RET, 'P  1650' .CARR.RET, ’C 1 .CARR.RET , 'B* .CARR.RET, 

•P  5240  SCARR.RET,  '0  SCARR.RET,  'O' ,‘iS 'PS02H, 'A' .CARR.RET, ‘H* .CARR.RET, 
'BSCARR.RET.'S  1 ',  CARR  .RET, 'R  173 S  CARR.  RET,  'F  IS  CARR.RET,  “ES  CARR.RET, 

'P  2200 S CARR.RET.'X  382' .CARR.RET, 'P  1650', CARR.RET, 'OS CARR.RET, *0', '■' , 
'PS03H,'A'  .CARR.RET,  'H'  .CARR.RET,  *B‘  .CARR.RET,  'SI*  .CARR.RET,  'R  173S 
CARR.RET, *F  1 SCARR.RET, ' E ', CARR.RET.'X  382 S CARR.RET, 'P  2100 S CARR.RET, 

’ X  425 S CARR.RET ,  ’ P  1 650 S CARR.RET » ’ 0 S CARR.RET » ‘ Q * » 'IS  'P'  ,04H, ' A' , CARR.RET , 
'H SCARR.RET, 'BSCARR.RET.'S  1  SCARR.RET .' R  1  SCARR.RET, 'F  1  SCARR.RET, 'ES 
CARR.RET , ' X  4364 ' , CARR.RET , ' C S CARR.RET , 1 8 S CARR.RET , ’ X  820 S CARR.RET , ' C ', 
CARR.RET ,  ’  B '  .CARR.RET ,  'OS  CARR.RET , '  0 ', ' «  S '  P  S05H,  ’  A  ’  .CARR.RET , '  H  S  CARR.  RET , 
'BSCARR.RET.'S  1' .CARR.RET, 'R  225 ', CARR.RET, 'F  1  SCARR.RET, 'ESCARR.RET, 

'P  650 ', CARR.RET, 'R  235 SCARR.RET, 'F  1 ', CARR.RET, 'P  625SCARR.RET, ’X  273S 
CARR.RET,  'P  650 SCARR.RET, ’X  273 S CARR.RET, ’L  15, 7 SCARR.RET,  'P  650S 
CARR.RET ,' 0  S  CARR.RET ,' Q  S'!  S '  i ') ! 

DECLARE  SCENE.7  (DBYTE  DATA  ( ' A ' .CARR.RET , 'H S CARR.RET , ' B ' .CARR.RET , ' S  IS 
CARR.RET, 'R  156' .CARR.RET, 'F  1' .CARR.RET, ‘ESCARR.RET, 'X  382 SCARR.RET, 

' P  2475 S CARR.RET , ' C S CARR.RET ,' B ', CARR.RET ,' P  5240  S  CARR.RET ,' 0  S  CARR.RET , 

’  Q ' , '  * ' ,  'PS04H, '  A  SCARR.RET,  'H  SCARR.RET, 

'BSCARR.RET.'S  1  SCARR.RET, 'R  1'  .CARR.RET,  'F  1' .CARR.RET, 'ESCARR.RET, 

•X  3500 SCARR.RET, 'C' .CARR.RET,  'ESCARR.RET, 'X  1227 SCARR.RET,  'C SCARR.RET, 
'6'  .CARR.RET,  '0 SCARR.RET,  'QS  '!'»'*'  >} 

DECLARE  SCENE.8  (*)  BYTE  DATA  < 'P' ,01H, 'A  SCARR.RET, 'HSCARR.RET, 'B  SCARR.RET, 
'S  1  SCARR.RET,  'R  225 S CARR.RET,  'F  1  SCARR.RET,  'ESCARR.RET,  'P  5240S 
CARR.RET, ‘R  180' .CARR.RET, 'F  1  SCARR.RET, ' U SCARR.RET, 'P  4800', CARR.RET, 'CS 
CARR.RET, 'BS CARR.RET, 'P  0SCARR_RET,'0SCARR_RET,'QS'!'»'PS05»'AS 
CARR.RET, 'HSCARR.RET, 'BSCARR.RET.'S  1  SCARR.RET, *R  200 SCARR.RET, 'F  IS 
CARR.RET,  'ESCARR.RET,  'X  10 SCARR.RET,  'HSCARR.RET,  'U SCARR.RET,  'P  650S 
CARR.RET.'X  545 SCARR.RET, 'P  500 SCARR.RET, ‘X  545 ', CARR.RET, 'L  2,5',CARR_RET, 
' P  650 S CARR.RET , ' 0 ', CARR.RET , '  0 '  i '  >  ,* 

DECLARE  SCEHE.9  (*)  BYTE  DATA  ( 'PS03H,  'A' -CARR.RET, 'HSCARR.RET, 'BSCARR.RET, 
*S  1  SCARR.RET, 'R  225 SCARR.RET, ’F  ISCARR.RET.’ESCARR.RET.'X  1000S 
CARR.RET, 'P  2950 ’, CARR.RET, 'R  50SCARR_RET,’F  1  SCARR.RET, ' C SCARR.RET, 'BS 
CARR.RET , ' U ' .CARR.RET , ' P  2800 ' , CARR.RET , : U S CARR.RET ,'L  10,3' , CARR.RET , 

' P  2950 ' , CARR.RET , ' 0  S  CARR.RE T , ’ 8 ', ’ i ’, 'P  S  04H, ' A  S CARR.RET , ' H  S 
CARR.RET, 'BSCARR.RET.’S  IS  CARR.RET, 'R  1  SCARR.RET, 'F  255  SCARR.RET, 'E', 
CARR.RET.'X  100 SCARR.  RET,  'HSCARR.RET,'  U'  .CARR.RET,  'N  IS  CARR.RET,  'G' , 
CARR.RET.'X  5 SCARR.RET, 'L  26, 5 S CARR.RET, 'X  5  S  CARR.RET, 'U  SCARR.RET, 'P  24', 
CARR.RET.'X  5 S CARR.RET, 'P  22 S CARR.RET, 'X  5 SCARR.RET, 'U SCARR.RET, 'P  24S 
CARR.RET.'X  5 SCARR .RET,' P  26' -CARR.RET, 'X  5 S CARR.RET,' L  10,15' -CARR.RET, 

' P  24 ' , CARR.RET , ' 0 S CARR.RET , ' 8 ', ' !  S ’ I ' ) ! 

DECLARE  GO.HOME  <*>  BYTE  DATA  ( 'HSCARR.RET, 'N  1' -CARR.RET, '-SCARR.RET, 

'R  245SCARR.RET,  'ESCARR.RET, ' G SCARR.RET, 'T SCARR.RET,  'IS CARR.RET, 

'OD' , CARR.RET, '*' )» 

DECLARE  RAISE.HOTOR  (D  BYTE  OATA  ( ’PS05H,  ’ASCARR.RET,  'HSCARR.RET, 


'S  1' fCARR.RET f'R  225' fCARR.RETf 'F  1'  fCARR.RETf 'E' fCARR.RETf 
'P  650 ' f CARR.RET f’I' fCARR.RET f ' 0 ' r CARR. RET , ‘Q‘ , 'i 1 ) } 

DECLARE  LOWER.MOTOR  (»)  BYTE  DATA  ( ‘M* fCARR.RETf *S  1'f CARR.RET f 
'R  225' f CARR.RET f'F  1' fCARR.RET » '£' fCARR.RET f » CARR  RETf'N  1200'fCARR  RETf 
• G 1 fCARR.RET f 1 1  * , CARR.RET , *0‘ f CARR.RET , 1 QD  * » CARR.RET , '  x  • ) ; 

/xiiiiniiixixxixxxxiiiiiixiixxxiiiixxxixxzxixiiiiixxiiixxiiiixziiiiiixziixiix 

i  COMMENTS  PRINTED  ON  THE  SCREEN  BY  THE  PRINT  PROCEDURE  ARE  LISTED  BELON.  * 

xiixiuiiiiixiiiiiiiiiiiiiixxxiixxzxxxxixixxxxiixiiixiiiiixiiiiiixiziizixiixi/ 


DECLARE  HELLO  (*)  BYTE  DATA  (CARR.RETfLINE.FEEDfLINE.FEEDfLINE.FEEDfLINE.FEEDf 
•STACS-T  TRAINER  VERSION  1,0' fCARR.RETfLINE.FEEDf *i' )} 

DECLARE  FOO.BAH  (x)  BYTE  DATA  ('  I  TOLD  YOU  THIS  !#*m*§  TRAINER  CAM'  'T  '» 

' DO  THAT ! ! ! ' f CARR.RET  f  LINE.FEED  f ’ x ' , ) 5 

DECLARE  HELLO.CON  (x)  BYTE  DATA  <  CARR.RET  fLINE.FEEDf' NEED  A  MENU?  (Y  OR  N)'r 
CARR.RETfLINE.FEEDf'x'); 

DECLARE  ITEM.l  (X)  BYTE  DATA  ('ITEM  1!  TANK  MOVES  TO  THE  CENTER  OF  THE'f 
'  TRACK  AND  STOPS'  fCARR.RETfLINE.FEEDf  '*'  )J 

DECLARE  ITEM.2  (X)  BYTE  DATA  ('ITEM  21  FRONT  TANK  RISES  FROM  TRENCH ,  MOVING 'f 
1  NEST,  AND  BECOMES  THE  TARGET' fCARR.RETfLINE.FEEDf '  CENTER  AND  'f 

'REAR  TANKS  MOVE  FROM  EAST  TO  NEST  INTO  COVER ’ fCARR.RET f LINE.FEED f  '  x  ’ )  J 

DECLARE  ITEM. 3  (X)  BYTE  DATA  ('ITEM  31  FRONT  TANK  RISES  FROM  TRENCH  MOVING  'f 
'NESTf  THEN  SINKS  AGAIN' fCARR.RETfLINE.FEEDf '  CENTER  TANK  MOVES  'f 

'NEST  INTO  COVER!  THEN  REAPPEARS f  MOVING  EAST' fCARR.RETfLINE.FEEDf ' 

'AND  BECOMES  THE  TARGET.  REAR  TANK  MOVES  OUTf  THEN  RETREATS  TO  'f 
CARR.RET  t  LINE.FEED  f '  ITS  REAR  INTO  COVER ’ f  CARR.RET  f  LINE.FEED  f ' x ' ) ; 

DECLARE  ITEM.l  <x)  BYTE  DATA  ('ITEM  1!  CENTER  AND  REAR  TANKS  MOVE  EAST  TO  'f 
'NEST  INTO  COVER' fCARR.RETfLINE.FEEDf'  FRONT  TANK  RISES  FROM  TRENCH' f 

‘  AND  BECOMES  TARGET  AS  CENTER  AND' fCARR.RETfLINE.FEEDf *  REAR  TANKS' 

’  DISAPPEAR ' fCARR.RETfLINE.FEEDf 'x ' ) ? 

DECLARE  ITEM .5  (x)  BYTE  DATA  ('ITEM  51  FRONT  TANK  RISES  FROM  TRENCH  AND  'f 
'TRAVERSES  HILLY  TERRAIN' fCARR.RETfLINE.FEEDf '  CENTER  AND  REAR  'f 

'TANKS  APPEARf  THEN  RETREAT  INTO  COVER' fCARR.RETfLINE.FEEDf 'x')J 

DECLARE  ITEM.6  (x>  BYTE  DATA  ('ITEM  61  FRONT  TANK  MOVES  NEST  OVER  ROUGH  'f 
'TERRAIN' fCARR.RETfLINE.FEEDf'  CENTER  AND  REAR  TANKS  MOVE  NEST  'f 

'THROUGH  COVER  AND  THEN  RETREAT' fCARR.RETfLINE.FEEDf '  BACK  INTO  IT’f 

CARR.RETfLINE.FEEDf'x'); 

DECLARE  ITEM.7  (x)  BYTE  DATA  ('ITEM  71  TANK  MOVES  EAST  TO  WEST  ON  ANY  TRACK 'f 
CARR.RETfLINE.FEEDf'x' )! 

DECLARE  ITEM. 8  (*>  BYTE  DATA  ('ITEM  8!  FRONT  TANK  MOVES  NEST  TO  EAST  AS  'f 
•TARGET 'fCARR.RETfLINE.FEEDf 'z' )i 


DECLARE  ITEM.?  (x)  BYTE  DATA  ('ITEM?.'  REAR  TANK  TRAVERSES  OUT  MOVES  TOWARD  'f 


•  GUNNER ' .CARR.RET  .LINE.FEED, '  x ' ) ! 


DECLARE  PAGE.COMMENT  (D  BYTE  DATA  ( CARR.RET , LINE.FEED , LINE.FEED >  LINE.FEED » 
LIN£_FEED»LINE_FEED,  'PAGE  *')! 

DECLARE  SINGLE.PAGE  (*)  BYTE  DATA  ( LINE  .FEED  ,  'PRESS  *E‘  TO  EXIT  MENU.', 

CARR.RET » LINE.FEED » LINE.FEED ,'«')! 

DECLARE  FIRST.PAGE  («)  BYTE  DATA  (LINE.FEED. 'PRESS  ‘N*  TO  SEE  THE  NEXT  PAGE.', 

'  *E*  TO  EXIT  MENU’ . LINE.FEED. CARR_RET.LINE.FEED. K 

DECLARE  CENTER.PAGE  (*)  BYTE  DATA  (LINE.FEED, 'PRESS  *N'  TO  SEE  THE  NEXT  PAGE.', 
'  •f  TO  SEE  THE  PREVIOUS  PACE,  'E*  TO  EXIT  MENU', LINE.FEED, CARR.RET, 
LINE.FEED, '»')i 

DECLARE  LAST.PAGE  <D  BYTE  DATA  (LINE.FEED, 'PRESS  'P'  TO  SEE  THE  PREVIOUS 
•PAGE,  ‘E'  TO  EXIT  MENU ' , LINE.FEED , CARR.RET , LINE.FEED ,'*')! 

DECLARE  FOO  («)  BYTE  DATA  ('  THIS  STAGS-T  TRAINER  CAN"T  DO  THAT! ! ', 

CARR.RET, LINE.FEED, '«' )» 

t 

DECLARE  REQUEST  (*)  BYTE  DATA  (CARR.RET, LINE.FEED, LINE.FEED, LINE.FEED 
, LINE.FEED, 'WHICH  ITEM  ?’*')! 

DECLARE  SIGHT.Q  (*)  BYTE  DATA  COO  YOU  NISH  TO  USE  THE  DAYSIGHT  (D)  OR  THE  ’, 

' NIGHTSIGHT  (NP  ','*')! 

1  DECLARE  TRACK J  (*)  BYTE  DATA  ( 'WHICH  TRACK  DO  YOU  NISH  TO  RON  THIS  SCENARIO' r 
'  ON '.CARR.RET,  LINE.FEED,'  (1  =  FRONT,  2  *  CENTER,  AND  3  *  REAR)?  V«')i 

DECLARE  RATING.Q  (*)  BYTE  DATA  CENTER  GUNNER  RATING  (0,  1,  OR  2).  *')} 

DECLARE  ITEh.PTRS.l  (*)  POINTER  DAT  A  ( ?ITEH_  1 ,  BITEM.2 ,  BITEM.3 ,  HTEM.1 ,  HTEM.5 , 
BITEM.6 , 9 ITEM. 7 , BITEM.8 , 8ITEN.9 ) * 

/iiiiiiixxixiixiiixxiiixixxiiiiixxixiixiiiixxxiixxxxxiiixixxxiiiiixxiixiixiiixi 
i  THE  FOLLOWING  SUBROUTINE  INPUTS  A  BYTE  OF  ASCII  DATA  FROM  THE  TERMINAL  * 

ixxxiixxxixxxxxxixxxxxixxxxxxxxxxxixxxxxxxxxixixixiixxxxiiinxmxixixxnxxixx/ 


CIN: PROCEDURE  BYTE! 

DO  WHILE  NOT  SHR ( INPUT ( IOSTATUS ) » 1 )  i 
END! 

RETURN  MASK  AND  INPUT (IODATA)! 

END  CIN! 


/xxxxxixixxxixxxxxxixxxixixxixxxxxxxxxxxxxxxxxxxxxxxxixxxxixixxxxnxxxxxnxixn 

i  THE  FOLLOWING  SUBROUTINE  OUTPUTS  A  BYTE  OF  ASCII  DATA  TO  THE  TERMINAL  * 

xxxxxxxixixxixxixxxxxxxxxxxxxxixxxxxxxxxxxxxxxxxxxxxxxxixxxxxmxxxxxxxxxxxxxx/ 


cout:  procedure  <iteh); 

DECLARE  ITEM  BYTE! 

DO  WHILE  NOT ( INPUT ( IOSTATUS ) >  5 
END! 

OUTPUT ( IODATA )=ITEM! 


62  2 
63  2 


CALL  TIME (15)! 

end  cout; 


/niiiiiniimiiizxiiiiiixziiiixzxxxixxiixxixiixxxiiixizxixxziixixixxxxxiiii/ 

H  THE  FOLLOWING  ROUTINE  OUTPUTS  A  CHARACTER  TO  THE  8711  MIEN  CALLED  FROM  1/ 
/*  TIC  MAIN  PROGRAM  «/ 

/iiixxiiixiximiiiiiiiiiiiiixixixixmiiixiixiiiiiiiiiiiiixxxiiiiiiixxiixxii/ 


.-.V 

61 

1 

OUTPT!  PROCEDURE  (OUTDATA)i 

. 

6S 

2 

DECLARE  OUTDATA  BYTE*  STAT.COM  BYTE  AT  (OFOOOH)*  P.DATA  BYTE  AT  (0F002H), 

66 

2 

DO  WHILE  NOT  SHR(STAT_C0H,1);  /i  WAIT  UNTIL  UPI11  IBF  =  0  */ 

■ 

67 

3 

end; 

68 

2 

P.DATA  =  NOT  OUTDATA ;  /*  NOT  BECAUSE  MULTIBUS  INVERTS  *1 

69 

2 

END  OUTPT,* 

70  1  PRINT  S  PROCEDURE ( PNTR ) ;  /i  PROMPTS  THE  CONSOLE  */ 

71  2  DECLARE  I  WORD! 

72  2  DECLARE  PNTR  POINTER* 

CHAR  BASED  PNTR  (1)  BYTE./*  CHAR  HUST  BE  AN  ARRAY  TO  KEEP  PLH  HAPPY  */ 

73  2  i  =  o; 

71  2  LOOP:  DO  WHILE  CHARI I )  <>  5 

75  3  CALL  COUT (CHARY I) ) 1 

76  3  I  ■  I  ♦  1J 

77  3  END  LOOP! 

78  2  END  PRINT.* 

/xxxxxxxxxxxxxxxxxxxxxxzxxxxxxxxxxxxxzxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

I  THIS  PROCEDURE  SENDS  AN  ENTIRE  PROGRAM  (OR  ’SCENE')*  POINTED  TO  BY  * 

*  PROG.PTR,  TO  THE  CY512  * 

XXXXXIXXXXXXXXXXXXXXXXZIXXXXXXXIXIIIIIXXXXXXXXXXXIXXXXXXXIXXXXXXXXXXIXXIIXXXX/ 


79 

K~|-. 

80 

81 

v?v 

82 

# 

83 

81 

/••* 

85 

m 

[i 

r  -■ 

86 

r-y: 

r.  - . 

87 

r.\-  ' 

88 

r& 

89 

r-:-\ 

90 

91 

r. 

92 

r.V.* 

93 

K*. 

*•_ 

91 

TANK.PROG :  PROCEDURE ( PROG.PTR  *  LENGT ) * 

DECLARE  PROG.PTR  POINTER*  LENGT  WORD,  (ITEM  BASED  PROG.PTR)  (1)  BYTE* 
C  WORD! 

c  =  o; 

DO  WHILE  C  <  LENGT,* 

CALL  OUTPT (ITEM(C) ) * 

C  =  C  M5 
end; 

END  TANK.PROG! 


*  THIS  PROCEDURE  SENDS  ALL  THE  MOTORS  TO  THEIR  HOME  POSITIONS. 


RESET.MOTORS!  PROCEDURE! 

i  *  o; 

DO  WHILE  I  <  i; 
i  =  i  ♦  i; 

CALL  OUTPT('P'); 

CALL  OUTPT(I); 

CALL  TANK.PR0G(8G0.H0ME»SI2E(G0.H0ME) ) ,* 
END! 


■  ‘  «  •  >  *  .  '  . "*  s 

i/O.  .  Jk_  a*  ■k."  t  '  »  1  .  '  .  -  _  . 


95  2 

96  2 

97  2 


CALL  OUTPT(’P'); 

CALL  OUTPT ( 05H>  * 

CALL  TANK.PROG ( SLOWER.HOTORfSIZE ( LOWER.HOTOR ) ) 
98  2  END  RESET. ROTORS ; 


/*  OUTPUTS  PACE  1  OP  THE  HENU  «/ 

99  1  hcnu.i:  procedure; 

100  2  RESPONSE  =  05 

101  2  CALL  PRINT ( SPACE .CORNER  T ) ! 

102  2  CALL  COUTCn, 

103  2  CALL  COUT(CARR.RET)! 

101  2  CALL  COUT(LINE.PEED); 

105  2  CALL  COUT(LINE.FEED); 

106  2  I  =  o; 

107  2  DO  WHILE  I  <  LENGTHlITEH.PTRS.l ) ! 

108  3  CALL  PRINT (ITER. PTRS.l (I) )i 

109  3  I  =  I  ♦  15 

no  3  end; 

111  2  CALL  PRINT (SSINGLE.PAGE) ! 

112  2  END  MENU. 15 


ft  OUTPUTS  PAGE  2  OF  THE  HENU  «/ 

113  1  HENU.2J  PROCEDURE! 

111  2  RESPONSE  =  0; 

115  2  END  HENU.2! 


ft  OUTPUTS  PAGE  3  OF  THE  HENU  «/ 

116  1  HENU.3I  PROCEDURE! 

117  2  RESPONSE  =  0! 

118  2  END  HENU.3! 


/ i  OUTPUTS  PAGE  1  OF  THE  HENU  «/ 

119  1  MENU. a:  procedure; 

120  2  RESPONSE  =  0! 

121  2  END  MENU.i: 


/*  OUTPUTS  PAGE  5  OF  THE  HENU  */ 

122  1  HENU. 5.*  PROCEDURE! 

123  2  RESPONSE  =  0! 

121  2  END  HENU.5! 


125  1 


GIVE.HENU:  PROCEDURE! 


126  2 


CALL  PRINT (gHELLO.CON)! 


127  2  RESPONSE  =  0! 

128  2  RESPONSE  =  CIN! 

129  2  CALL  COUT( RESPONSE)?  /«  ECHO  PRINT  */ 

130  2  IF  (RESPONSE  =  59H)  OR  (RESPONSE  =  79H)  THEN  /»  UPPER  OR  LONER  CASE  *Y*  */ 

131  2  MENU*  DO? 

132  3  CALL  COUT(CARR.RET)} 

133  3  CALL  COUT(LINE.FEED); 

139  3  HENU.DONE  =  01 

135  3  NENU.NO  =  1* 

136  3  CALL  COUT(VECTOR.HODE)! 

137  3  CALL  COUT (CLEAR. ALL )> 

138  3  CALL  COUT (HOHE.CURSOR ) ! 

139  3  CALL  TINE (2000)» 

190  3  CALL  HENU.l} 

191  3  00  HHILE  NOT  HENU.DONE; 

192  9  SAHE  =  0! 

193  9  OK  =  0} 

199  9  RESPONSE  =  CIN! 

195  9  IF  (RESPONSE  =  9EH)  OR  (RESPONSE  =  6EH)  THEN  005  /*  UC  OR  LC  ‘N*  */ 

197  5  IF  HENU.NO  <  HAX.HENU.NO  THEN  00! 

199  6  HENU.NO  =  HENU.NO  ♦  1* 

150  6  OK  =  i; 

151  6  END! 

152  5  ELSE  DO! 

153  6  SAHE  =  i; 

159  6  CALL  COUT  (BELL)} 

155  6  ENO; 

156  5  end; 

157  9  IF  (RESPONSE  =  50H)  OR  (RESPONSE  =  70H)  THEN  DO;  /«  UC  OR  LC  *P'  «/ 

159  5  IF  HENU.NO  >  1  THEN  DO! 

161  6  HENU.NO  =  HENU.NO  -  1J 

162  6  OK  =  i; 

163  6  end; 

169  5  ELSE  DO; 

165  6  SAHE  =  i; 

166  6  CALL  COUT (BELL)! 

167  6  end; 

168  5  end; 

169  9  IF  (RESPONSE  =  95H)  OR  (RESPONSE  =  65H)  THEN  DO! 

171  5  HENU.DONE  =  1.‘  /*  UC/LC  'E'  */ 

172  5  OK  =  I! 

173  5  end; 

179  9  IF  NOT  HENU.DONE  THEN  IF  NOT  SAHE  THEN  IF  OK  THEN  DO! 

178  5  CALL  COUT(CLEAR.ALL)! 

179  5  CALL  COUT (HOHE.CURSOR)! 

180  5  CALL  TIHE(2000>! 

181  5  DO  CASE  (HENU.NO  -  1); 

182  6  CALL  HENU.l! 

183  6  CALL  HENU.2! 
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CALL  HENU.3* 
CALL  HEWJ.I! 
CALL  HENU.5I 

end; 

end; 


END  HENU! 

ELSE  do; 

CALL  COUT(CARR.RET)* 
CALL  COUT(LINE.FEEO); 

end; 

CALL  COUT( CLEAR. ALL)! 
CALL  COUT(HOHE.CURSOR); 
CALL  TINE (2000). 

END  GIVE.HENU! 


TANK.INIT:  PROCEDURE  public; 

/xxxxxxxiixxxxxxxixxiiixxizizxxzzzxzxixzizxxzxixxixixixixxxxixxiixzxixi 

TANK.INIT  PROCEDURE  BEGINS  HERE 

XXXXXXXXXXZIXXXXXXXXIXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXIXIXXXXXIXXXXXXX/ 


/X1IX1III1IIXXI1XIIXIIXX1XXXXXX1XIZXXXXZXXXXZX1XXX1XXX11XX1XIXI1XXIX1XIXX1XXX1 
X  RESET  ALL  HOTORS  TO  STARTING  POSITIONS.  x 
xxxxxxxxxxxxzxzxxxxxxixxxxxixxxixxzxxxzxxxxixxxxxxxxxxxxxxmnxxmixxxxmx/ 

CALL  RESET.NOTORS; 


CALL  COUT(VECTOR.HODE); 
CALL  COUT (CLEAR. ALL)! 
CALL  COUT ( HOHE.CURSOR ) > 
CALL  TIHE(2000); 

C0HHENT1! 

CALL  PRINT  (BHELLO); 
CALL  GIVE.HENU! 


OKI >  0K2  f  TOTAL Y.OK  f  GO.NOH  * RESPONSE » PREVIOUS. RESPONSE  =  0? 

GET.ITEM!  DO  WHILE  NOT  TOTALY.OK! 

/*  WAIT  TILL  A  PROPER  HENU  ITEH  IS  ENTERED  1/ 

CALL  PRINT  (REQUEST) ! 

0K.1J  DO  WHILE  NOT  OKI? 

RESP.l.ASCII  =  cin; 

RESP.l.NUH  =  RESP.1.ASCII-30H; 

IF  (RESP.l.ASCII  <  3AH)  AND  (RESP.l.ASCII  >  30H)  THEN  /z  IS  BETWEEN  1  &  9  z/ 

do; 

CALL  COUT  (RESP  1 .ASCII)! 


OKI  =  li 


216  5 

217  5  END. 

218  4  ELSE  CALL  COUT(BELL)? 

21?  4  END  OK.l? 

220  3  0K_2J  DO  WHILE  NOT  QK2! 

221  4  RESP.2.ASCII  =  CIN; 

222  4  RESP.2.NUH  =  RESP.2.ASCII  -  30H! 

223  4  F  ((RESP.2. ASCII  <  3 AH)  AND  (RESP.2. ASCII  >  2?H>)  OR  (RESP.2.ASCII  =  CARR.RET)  THEN 

22?  4  DO! 

225  5  IF  RESP.2.ASCII  O  CARR.RET  THEN  CALL  COUT  (RESP.2.ASCII); 

227  5  0K2  =  i; 

228  5  END? 

22?  1  ELSE  CALL  COUT(BELL)! 

230  4  END  0K.2? 

231  3  IF  RESP.2.ASCII  <>  CARR.RET  THEN 

232  3  DO? 

233  4  RESP.l.NUH  =  RESP.l.NUH  *  100! 

234  4  RESPONSE  =  RESP.l.NUH  +  RESP.2.NUH; 

235  4  SCENARIO.BUFFER  (6)  =  RESP.i. ASCII? 

236  4  SCENARIO.BUFFER  (7)  =  RESP.2.ASCII; 

237  4  GO. NOW  =  0; 

238  4  END! 

23?  3  ELSE  DO? 

240  4  RESPONSE  =  RESP.l.NUH; 

241  4  SCENARIO.BUFFER  (6)  =  SPACE! 

242  4  SCENARIO.BUFFER  (7)  =  RESP.l.ASCII? 

243  4  GO.NOW  =  CARR.RET! 

244  4  END! 

245  3  IF  RESPONSE  <=  SCENE.COUNT  THEN  TOTAL Y.OK  =  1? 

247  3  ELSE  DO; 

248  4  OKI  »0K2  =  0! 

24?  4  IF  RESPONSE  <>  PREVIOUS. RESPONSE  THEN  CALL  PRINT (8FQQ)! 

251  4  ELSE  CALL  PRINT (8F00.BAH)? 

252  4  CALL  COUT (CARR.RET)! 

253  4  CALL  COUT (LINE.FEED) ! 

254  4  CALL  COUT (BELL)! 

255  4  PREVIOUS.RESPONSE  =  RESPONSE! 

256  4  CALL  GIVE.HENU! 

257  4  END! 

258  3  END! 

25?  2  SCENARIO  =  RESPONSE; 

260  2  WAIT. GO! 

DO  WHILE  GO.NOW  <>  CARR.RET!  /«  WAIT  FOR  CARR.RET  »/ 

261  3  GO.NOW  =  CIN! 

262  3  IF  GO.NOW  O  CARR.RET  THEN  CALL  COUT (BELL)? 

264  3  END  WAIT.GOi 

265  2  CALL  COUT (CARR.RET)? 

266  2  CALL  COUT (LINE.FEED)! 
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) 


/iiiixiiiiiiiiimiiiiiiiiiiimiiiiiuixiiiiiiiiiiimiiumiiiiiiiiiiiiiuii 

i  SET  FLAGS! 

*  -1 

*  SIGHT.FLAG  *  1  »>  INSTRUCTOR  NAS  A  CHOICE  OF  DAY  OR  NIGHT  SIGHT 

i 

J 

i  TRACK _FL AG  =  1  ==>  INSTRUCTOR  HAS  A  CHOICE  OF  WHICH  TRACK  TO  USE 

i 

4 

i  EAST.NEST  =  1  »>  TARGET  HILL  START  FROM  THE  EAST 

i 

«  STARTING.TRACK  ==>  THE  TRACK  THE  SCENARIO  HILL  START  ON 

« 

i  TARGET.SHITCH  =  0  ==>  THERE  HILL  BE  NO  TARGET  SWITCH 

i 

i  FINAL. TRACK  ==>  TRACK  TO  SWITCH  TO  IF  THERE  IS  A  SWITCH 

i 

*  CONTINUE  ==>  SYNCHRONIZES  DIGITALKER 

i 

*  TURNED  «>  INDICATES  WHETHER  TRACK  3  IS  ROTATED  1  ROTATED 

mm 

■ 

«/ 

267 

2 

SIGHT.FLAGfEAST.WEST  =  li 

% 

■ 

• 

266 

2 

TRACK.FLAG? TARGET_SHITCH»FINAL_TRACKf TURNED  =  Oi 

« 

« 

269 

2 

flag_set:do  case  (scenario); 

270 

3 

flag_set_o:do;  /*  do  case  expects  o»  but  there  is  never  scenario  o  */ 

271 

1 

end; 

272 

3 

FLAG.SET.IJDO; 

/i 

.-s 

273 

1 

TRACK.FLAG  =  1 i 

271 

1 

end; 

j 

275 

3 

FLAG_SET_2 1  DO  J 

•j 

276 

1 

STARTING.TRACK  =  1? 

“j 

277 

1 

end; 

fi 

278 

3 

flag_set_3:do; 

279 

1 

STARTING.TRACK  =  2 i 

280 

1 

end; 

v 

281 

3 

flag_set_i:do; 

282 

1 

STARTING.TRACK  =  1J 

283 

1 

end; 

'  i 

w 

281 

3 

flag.set.5:do; 

'  J 

285 

1 

STARTING.TRACK  =  15 

.■« 

286 

1 

end; 

287 

3 

flag.set.6:do; 

t< 

288 

1 

STARTING.TRACK  =  1.* 

* » 

289 

1 

end; 

V 

■  i 
<, 

290 

3 

flag.set_7:do; 

s 

291 

1 

TRACK.FLAG  =  1J 

292 

1 

end; 

Fj 

293 

3 

FLAG.SET.8ID0; 

291 

1 

EAST .WEST  =  0; 

295 

1 

STARTING.TRACK  =  li 

296 

1 

end; 

"  .* 

297 

3 

FLAG.SET.9ID0; 

w 

298 

1 

STARTING.TRACK  =  3! 

299 

1 

TURNED  =  li 

300  1 


301  3 

302  2 


END  FLAG.SET* 
DONE  =  o; 


303  2 


IF  SIGHT .FLAG  THEN  DO  WHILE  NOT  DONE!  /«  HE  HAVE  A  CHOICE  OF  DAY/NIGHT  SIGHT  «/ 


305  3 

306  3 

307  3 

308  3 

30?  3 

310  3 

311  3 

312  3 

311  1 

315  1 

316  1 

317  3 

319  1 

320  1 

321  1 

322  3 

321  3 

325  2 

326  2 

328  3 

329  3 

330  3 

331  3 

332  3 

333  3 

331  3 

335  3 

337  1 

338  1 

339  1 

310  3 


RESPONSE  *  0; 

CALL  PRINT (8SIGHT.Q)* 

RESPONSE  *  CIN; 

CALL  COUT(R£SPONSE)» 

CALL  COUT(CARR.RET); 

CALL  COUT(LINE.FEED); 

CALL  COUT(LINE.FEED)* 

IF  (RESPONSE  =  11H)  OR  (RESPONSE  =  61H)  THEN  D05  /*  UC  OR  LC  ‘D*  ■/ 
DONE  =  i; 

DAY.SIGHT  =  1,  /«  USE  DAY  SIGHT  »/ 

end; 

IF  (RESPONSE  =  1EH)  OR  (RESPONSE  =  6EH)  THEN  DO!  /■  UC  OR  LC  *N*  */ 
DONE  =  i; 

DAY.SIGHT  =  Oi  /*  USE  NIGHT  SIGHT  •/ 

end; 

IF  NOT  DONE  THEN  CALL  COUT (BELL ) ! 


DONE  =  o; 

IF  TRACK.FLAG  THEN  DO  WHILE  NOT  DONE;  /«  HE  HAVE  A  CHOICE  OF  TRACK  «/ 

RESPONSE  =  0; 

CALL  PRINT (8TRACK.Q); 

RESPONSE  =  CIN! 

CALL  COUT (RESPONSE); 

CALL  COUT(CARR.RET); 

CALL  COUT(LINE.FEED)* 

CALL  COUT(LINE.FEED)> 

IF  (RESPONSE  >  30H)  AND  (RESPONSE  <  31H)  THEN  DO* 

STARTING.TRACK  =  RESPONSE  -  30H!  /«  SELECT  STARTING  TRACK  «/ 

DONE  =  1.* 

END* 

ELSE  CALL  COUT(BELL>»* 


311  3 


CALL  TANK.PROG ( 8RAISE.N0T0R*  SIZE ( RAISE.HOTOR ) ) ; 


312  3 


313  2  RESPONSE  >  DONE  =  0! 

311  2  DO  WHILE  NOT  DONE! 

315  3  CALL  PRINT (fRATING.Q); 

316  3  RESPONSE  =  CIN! 

317  3  CALL  COUT (RESPONSE); 

318  3  CALL  COUT(CARR.RET)* 


319  3  CALL  COUT( LIME. FEtD)» 

350  3  RESPONSE  =  RESPONSE  -  30H! 

351  3  CUNNER.RATING  =  RESPONSE! 

352  3  IF  ((RESPONSE  >=  0)  AND  (RESPONSE  <=  2))  THEN  DONE  =  1} 

351  3  aSE  CALL  COUT(B£LL>! 

355  3  END} 

356  2  CONTINUE  »  IS  /«  USED  TO  SYNCHRONIZE  OPERATIONS  WITH  'DIGIT ALKER*  «/ 

357  2  END  TANK.INIT! 


358  1  TANK.START5  PROCEDURE  PUBLIC)  /«  CALL  AFTER  SCREEN  PRESENTATION  COMPLETE  «/ 

359  2  CALL  OUTPT  CT1)! 

360  2  CALL  OUTPT(STARTING.TRACK) } 

361  2  IF  TRACK.FLAG  THEN  DO! 

363  3  CALL  OUTPT  CP') } 

361  3  CALL  OUTPT ( STARTING. TRACK ) ! 

365  3  END! 

366  2  DO  CASE  (SCENARIO)! 

367  3  CALL  TANK.PR0G(8SCENE.0fSIZE(SCENE.0)>! 

368  3  CALL  TANK_PR0G(8SCENE.1»SIZE(SCENE.1)>! 

369  3  CALL  TANK_PR0G<BSCENE_2,SIZE(SCENE_2>>! 

370  3  CALL  TANK_PR0G(8SCENE_3»SIZE(SCENE.3))! 

371  3  CALL  T ANK .PROG ( 8SCENE .1 » SIZE ( SCENE. 1 ) ) ! 

372  3  CALL  TANK_PR0G(8SCENE_5»SIZE(SCENE.5))! 

373  3  CALL  TANK_PR0G(8SCENE_6»SIZE<SCENE_6»! 

371  3  CALL  T ANK.PROG ( 8SCENE.7 » SIZE ( SCENE.7 ) ) ! 

375  3  CALL  T ANK.PROG ( 8SCENE.8 , SIZE ( SCENE.8  > ) ! 

376  3  CALL  TANK.PR0G(8SCENE.9»SIZE(SCENE.9))! 

377  3  ENO! 

378  2  CONTINUE  =  1! 

379  2  END  TANK.START! 


/iiiiiiiiiiiiKiiimiinimiiiininiiiinimnmiinininiiuiniiiimii 
*  HE  NON  NISH  TO  STOP  THE  TANKS  IMMEDIATELY  AND  HAIT  FOR  RESET.  « 

iiiiiimmiiimmiiuiiitiiiiiiiiniiiiiiiiimiiiiiiiiiimiiiiimiinii/ 


380  1  tank.killed:  PROCEDURE  PUBLIC! 

381  2  CALL  OUTPT CR')!  /i  RESET  ALL  CY512S  ■/ 

382  2  END  TANK.KILLED! 

383  1  END  TON.START.UP.MODULE! 
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SIZE  NAME*  ATTRIBUTES » 


11 

0009H 

1 

I . 

BYTE  88  89  90 

92 

106 

107 

71 

OOOOH 

2 

I . 

WORD  73  71  75 

76 

INPUT . 

BUILTIN  53  55 

59 

1 

IODATA  . 

LITERALLY  55  61 

1 

IOSTATUS  . 

LITERALLY  53  59 

80 

OOOOH 

1 

ITEM . 

BYTE  BASED(PROG.PTR)  ARRAY(l) 

83 

57 

0001H 

1 

ITEM . 

BYTE  PARAMETER  AUTOMATIC 

58 

61 

32 

07ABH 

58 

ITEM.l . 

BYTE  ARRAY (58)  DATA 

51 

33 

07E5H 

111 

ITEM.2  . 

BYTE  ARRAY (111)  DATA 

51 

31 

0872H 

213 

ITEM.3 . 

BYTE  ARRAY(213)  DATA 

51 

35 

0965H 

163 

ITEM.l  . 

BYTE  ARRAY! 163)  DATA 

51 

36 

0A08H 

130 

ITEM.5  . 

BYTE  ARRAY (130)  DATA 

51 

37 

0A8AH 

115 

ITEM.6  . 

BYTE  ARRAY (115)  DATA 

51 

38 

0B1BH 

17 

ITEM.7  . 

BYTE  ARRAY(17)  DATA 

51 

39 

0B1AH 

50 

ITEM.8  . 

BYTE  ARRAY (50)  DATA 

51 

10 

087CH 

53 

ITEM.9  . 

BYTE  ARRAY<53)  DATA 

51 

51 

OOOOH 

36 

ITEM.PTRS.l . 

POINTER  ARRAY (9)  DATA 

107 

108 

15 

0C61H 

57 

LAST  PAGE . 

BYTE  ARRAY (57)  DATA 

79 

0001H 

2 

LENGT . 

WORD  PARAMETER  AUTOMATIC 

80 

82 

LENGTH  . 

BUILTIN  107 

8 

LINE.FEED.  ..... 

LITERALLY  29  30 

31 

32 

33 

10  11  12  13  11 

15 

16 

17 

266  310  311  333  331 

319 

71 

0E28H 

LOOP  ••«••••• 

LABEL 

28 

0713H 

37 

LOMER.MOTOR . 

BYTE  ARRAY (37)  DATA 

97 

1 

MASK  *«»•««•« 

LITERALLY  55 

2 

MAX_MENU.NO . 

LITERALLY  117 

131 

0F61H 

MENU  ••♦••••• 

LABEL 

99 

0EB5H 

88 

MENU.l  . 

PROCEDURE  STACK=0010H 

110 

182 

113 

OFODH 

10 

MENU.2  . 

PROCEDURE  STACK*0002H 

183 

116 

0F17H 

10 

MENU.3  . 

PROCEDURE  STACK=0002H 

181 

119 

0F21H 

10 

NENU.4 

PROCEDURE  STACK =0002H 

185 

122 

0F2BH 

10 

MENU.5  . 

PROCEDURE  STACKs0002H 

186 

11 

0007H 

1 

MENU.DONE . 

BYTE  131  111  171 

171 

11 

0006H 

1 

MENU.NO . 

BYTE  135  117  119 

159 

161 

181 

15 

0015H 

1 

OK  »••••«««  « 

BYTE  113  150  162 

172 

176 

12 

OOOBH 

1 

OKI »  i  i  i  «  i  i  i  • 

BYTE  207  210  216 

218 

12 

OOOCH 

1 

0K2 ••«««•«•« 

BYTE  207  220  227 

218 

210 

1115H 

OK.l  ••#««»•» 

LABEL 

220 

111AH 

0K.2  ««#«*#«« 

LABEL 

61 

0001H 

1 

OUTDATA . 

BYTE  PARAMETER  AUTOMATIC 

65 

68 

61 

00F9H 

36 

OUTPT.  •  «  •  i  •  •  • 

PROCEDURE  STACK=0001H 

83 

91 

361  381 

OUTPUT  . 

BUILTIN  61 

11 

0BB1H 

12 

PAGE.COHHENT  .... 

BYTE  ARRAY! 12)  DATA 

101 

70 

0001H 

1 

PNTR  44444444 

POINTER  PARAMETER  AUTOMATIC 

72 

11 

OOOAH 

1 

PREVIOUS.RESPONSE .  . 

BYTE  207  219  255 

70 

0E1FH 

38 

PRINT 44444444 

PROCEDURE  STACK -OOOCH 

101 

108 

306  329  315 

79 

0006H 

1 

PROG.PTR  . 

POINTER  PARAMETER  AUTOMATIC 

80 

65 

F002H 

1 

P.MTA  4  4  4  4  4  4  4 

BYTE  AT  ABSOLUTE 

68 

27 

06F1H 

31 

RAISE.MOTOR . 

BYTE  ARRAY! 31)  DATA 

311 

50 

0D6FH 

36 

RATING.O  . 

BYTE  ARRAY (36)  DATA 

315 

17 

0CC2H 

20 

REQUEST . 

BYTE  ARRAY (20)  DATA 

209 

87 

0E6BH 

71 

RESET.MOTORS  .... 

PROCEDURE  STACK*0012H 

200 

11 

0001H 

1 

RESPONSE  . 

BYTE  100  111  117 

120 

123 

127 

37  38  39 

133  193  253 


96  359  360  363 


205  209  250  251 


\*'A 


V, 


169  207  234  240 

245 

249 

255 

259 

305 

330  331  335  337 

343 

346 

347 

350 

351 

14 

OOOEH 

1 

RESP.l.ASCII  .  . 

*  » 

BYTE  211  212 

213 

215 

235 

242 

14 

0010H 

1 

RESP.l.NUM  .  .  . 

»  * 

BYTE  212  233 

234 

240 

14 

OOOFH 

1 

RESP.2.ASCII  .  . 

•  « 

BYTE  221  222 

223 

225 

226 

231 

236 

14 

001 1H 

1 

RESP.2.NUH  .  .  . 

•  * 

BYTE  222  234 

15 

0016H 

1 

SAME . 

«  t 

BYTE  142  153 

165 

175 

11 

0008H 

1 

SCENARIO  .... 

*  • 

BYTE  259  269 

366 

13 

OOOOH 

9 

SCENARIO.BUFFER. 

«  • 

BYTE  ARRAY (9)  EXTERNALS) 

235 

236 

241 

16 

0024H 

1 

SCENE. 0*  *  ♦  ♦  » 

»  • 

BYTE  ARRAY( 1)  DATA 

367 

17 

0025H 

52 

SCENE. 1 . 

•  * 

BYTE  ARRAY (52)  DATA 

368 

18 

0059H 

216 

SCENE.2 . 

»  « 

BYTE  ARRAY (21 6)  DATA 

369 

19 

0131H 

252 

SCENE.3 . 

*  * 

BYTE  ARRAY (252)  DATA 

370 

20 

022DH 

223 

SCENE.4 . 

*  * 

BYTE  ARRAY (223)  DATA 

371 

21 

030CH 

259 

SCENE.5 . 

«  • 

BYTE  ARRAY (259)  DATA 

372 

22 

040FH 

284 

SCENE.6 . 

•  * 

BYTE  ARRAY (284)  DATA 

373 

23 

052BH 

99 

SCENE  1 . 

•  « 

BYTE  ARRAY (99'  DATA 

374 

24 

058EH 

136 

SCENE.8 . 

•  * 

BYTE  ARRAY (136)  DATA 

375 

25 

0616H 

193 

SCENE.9 . 

•  « 

BYTE  ARRAY (193)  DATA 

376 

2 

SCENE.COUNT .  .  . 

«  » 

LITERALLY  245 

6 

SETCOUNT  .... 

t  » 

LITERALLY 

SHR . 

*  » 

BUILTIN  53 

66 

15 

0012H 

1 

SIGHT.FLAG  .  .  . 

«  « 

BYTE  267  303 

48 

0C06H 

60 

SIGHT.O . 

l  1 

BYTE  ARRAY (60)  DATA 

306 

42 

OBBDH 

28 

SINGLE.PAGE.  .  . 

•  • 

BYTE  ARRAY (28'  DATA 

111 

SIZE  !«*•** 

♦  • 

BUILTIN  93 

97 

341 

367 

368 

369 

375  376 

3 

SPACE*  »  »  *  *  • 

•  • 

LITERALLY  241 

9 

OOOOH 

1 

STARTING.TRACK  . 

1  • 

BYTE  EXTERNAL: 1) 

276 

279 

282 

285 

364 

65 

FOOOH 

1 

STAT.COM  .... 

•  ♦ 

BYTE  AT  ABSOLUTE 

66 

199 

10B3H 

932 

TANK.INIT,  .  .  . 

«  « 

PROCEDURE  PUBLIC  STACK=001BH 

380 

1528H 

18 

TANK .KILLED.  .  . 

•  * 

PROCEDURE  PUBLIC  STACK=0008H 

79 

0E45H 

38 

TANK.PROG,  .  .  . 

l  « 

PROCEDURE  STACK=OOOEH 

93 

97 

341 

372  373  374  375 

376 

358 

1457H 

209 

TANK.START  .  .  . 

•  4 

PROCEDURE  PUBLIC  STACK=0012H 

9 

OOOOH 

1 

TARGET .SNITCH.  . 

•  1 

BYTE  EXTERNAL (2) 

268 

TIME . 

•  « 

BUILTIN  62 

139 

180 

197 

204 

12 

OOOOH 

1 

TOTALY.OK.  .  .  . 

*  ♦ 

BYTE  207  208 

246 

1 

0DC2H 

TON.START.UP.MODULE . 

PROCEDURE  STACK=0000H 

15 

001 3H 

1 

TRACK.FLAG  .  .  . 

f  • 

BYTE  268  273 

291 

326 

361 

49 

0012H 

93 

TRACK  G . 

«  • 

BYTE  ARRAY (93)  DATA 

329 

10 

608 1H 

1 

TURNED  . 

♦  « 

BYTE  AT  ABSOLUTE 

268 

299 

7 

USART.COMMAND.  . 

«  • 

LITERALLY 

7 

USART.CONTROL.  . 

•  » 

LITERALLY 

7 

USART.MOOE  ,  .  . 

*  1 

LITERALLY 

5 

VECTOR .MODE.  .  . 

•  « 

LITERALLY  136 

201 

260 

1243H 

NAIT.GO . 

1  « 

LABEL 

M 

328 


371  372  373  374 


NODULE  information: 

CODE  AREA  SIZE  =  153AH  54340 
CONSTANT  AREA  SIZE  =  OOOOH  OD 
VARIABLE  AREA  SIZE  =  0017H  230 
MAXIMUM  STACK  SIZE  =  0018H  240 


730  LINES  READ 
0  PROGRAM  ERROR (S) 

END  OF  PL/N-W  COMPILATION 
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APPENDIX  G 


TOW  STATISTICAL  PACKAGE 

Four  program  modules  were  modified  to  incorporate  the  TOW  Statistical 
Package.  The  modifications  were  relatively  simple  because  all  the  necessary 
information  is  collected  in  real-time  during  simulated  missile  flight  with 
statistical  analysis  being  a  subsequent  operation. 

Figure  G-l  shows  the  PLM/86  addition  to  the  TOW  Flight  Module  which 
calculates  gunner  aiming  error  statistics  in  elevation  and  azimuth.  These 
include  mean  and  unbiased  (M-l)  standard  deviation  in  both  axes  for  selected 
time  intervals. 

Figure  G-2  shows  the  revised  TOW  Utility  Module  procedure  "HX2AS"  which 
processes  both  statistics  and  miss  information. 

Figure  G-3  shows  the  revised  TOW  Main  Module  procedure  "Action-Wait"  which 
waits  for  a  command  for  either  statistics  or  a  reprise  presentation. 

Figure  G-4  (A,  B  and  C)  shows  program  additions  to  the  PIP  Keyboard-10 
Module. 
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>>>:• 


228  i  statistics:  procedure  public; 

229  2  DECLARE  H.HEAN  (6)  BYTE  AT(OAOA2H),  H.DEV  (6)  BYTE  AT(0A0A8H>; 

230  2  DECLARE  HEAN.RIGHT  BYTE  AT  <  OACACH ) ? 

231  2  DECLARE  V.HEAN  (6)  BYTE  AT(0A062H)i  V.DEV  (6)  BYTE  AT ( 0A068H ) # 

232  2  DECLARE  HEAR  .UP  BYTE  AT(OAOBEH)  ? 

233  2  DECLARE  DO.STATS  BYTE  AT(0A090H>; 

231  2  DECLARE  STATS.READY  BYTE  AT(0A091H); 

235  2  DECLARE  START.TIHE  BYTE  AT(0A092H)J 

236  2  DECLARE  END.TIHE  BYTE  AT (OA093H > ♦ 

237  2  DECLARE  END. AT.TARGET  BYTE  AT (0A091H)! 

238  2  DECLARE  (START .COUNT i  END.COUNT >  I)  WORD r  ( SIGMA.Y »  SIGHA.Z* 

SIGHA.Y.SQ »  SIGHA.Z.SQ.  F.COUNT)  REAL; 

239  2  DECLARE  (VAR.Y.  VAR.Z.  HEAN.GAEY,  HEAN.GAEZ .STD.DEV.Y »  STD.OEV.Z)  REAL; 

210  2  SIGHA.Y,  SIGHA.Z,  SIGHA.Y.SQ.  SIGHA.Z.SQ  =  O.OT 

211  2  DO.STATS  =  0! 

212  2  START. COUNT  =  25  i  START.TIHEJ 

21?  2  END.COUNT  =  25  *  END.TIME 5 

211  2  IF  END.COUNT  >  UNSIGN (COUNT!  THEN  BEYOND!  DO! 

216  3  END.COUNT  =  UNSIGN (COUNT) 5 

21?  3  END.AT.TARGET  =  1! 

218  3  END  BEYOND! 

219  2  F.COUNT  =  FLOAT ( INT ( END.COUNT  -  START.COUNT ) ) » 

250  2  SIGMA! 

DO  I  =  (START.COUNT  +1'  TO  END.COUNT! 

251  3  SIGMA.Y  =  SIGMA.Y  +  RESULTS ( I ) . S_GAEY » 

252  3  SIGMA.Z  =  SIGMA.Z  +  RESULTS ( I ).S_GAEZ> 

253  3  SIGHA.Y.SQ  =  SIGHA.Y.SQ  ♦  RESULTS ( I > . S_GAEY  *  RESULTS ( I KS.GAEY! 

251  3  SIGHA.Z.SQ  =  SIGHA.Z.SQ  ♦  RESULTS ( I KS.GAEZ  *  F:ESULTS(I).S_GAEZ; 

255  3  END  SIGHA! 

256  2  HEAN.GAEY  =  SIGHA. Y/F.COUNT! 

25’  2  VAR. Y  »  (SIGHA.Y.SQ  -  SIGHA.Y  i  HEAN.GAEY) /(F.COUNT  -  l.)5 

258  2  IF  VAR. Y  '  l.OE-12  THEN  VAR.Y  =  0.0*  /*  SMALLEST  REPRESENTABLE  SDEV.  f/ 

260  2  STD.DEV.Y  =  tqerY2X(VAR.Y*  0.5)! 

261  2  HEAN.GAEZ  =  SIGHA.Z/F.COUNT! 

262  2  VAR.Z  =  (SIGHA.Z.SQ  -  SIGHA.Z  *  HEAN_GAEZ)/<F.COUNT  -  l.)5 

243  Z  IF  VAR.Z  l.OE-12  THEN  VAR.Z  =  0.0;  ft  SHALLEST  REPRESENTABLE  SDEV.  */ 

265  2  STD.OEV.Z  =  iqe-YZXfVAR.,  0.5)! 

Z66  2  IF  HEAN.GAEY  <  0.  THEN  HEAN.RIGHT  =  0!  ELSE  HEAN.RIGHT  =  1! 

269  2  IF  HEAN.GAEZ  0.  THEN  HEAN..UF  =  0!  ELSE  HEAN.UP  =  15 

272  2  CALL  HX2AS( FIX (HEAN.GAEY  i  1,E6).?H_HEAN); 

273  2  CALL  HX2AS (FIX (STD.DEV.Y  i  l.E6),8H.DEV); 

271  Z  CALL  HX2AS( FIX (HEAN.GAEZ  i  1 ,E6) .BV.HEAN) ! 

275  2  CALL  HX2AS' FIX (STD.OEV.Z  *  l.E6>itV_DEV)i 

2V  2  STATS.READY  =  1J 

277  2  END  STATISTICS! 


Figure  G-l.  Addition  to  TOW  Flight  Module. 
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/«  HX2AS  CONVERTS  AN  INTEGER  TO  ASCII  CHARACTERS  HITH  THE 
LEAST  SIGNIFICANT  DIGIT  IN  THE  TENTHS  POSITION  «/ 

HX2AS!  PROCEDURE  (IHEX.ASCII.ADR)  PUBLIC* 

DECLARE  ASCII. ADR  POINTER*  IHEX  INTEGER,  HEX  NORD* 

ASCII  BASED  ASCII.ADR  (6)  BYTE*  N  INTEGER  *  REMAINDER  WORD! 

IF  IHEX  r  0  THEN  HEX  =  UNSIGN (-IHEX); 

ELSE  HEX  =  UNSIGN (IHEX); 

DO  N  *  A  TO  0  BY  -  i; 

REMAINDER  =  HEX  MOD  10  +  30H! 

ASCII(N)  =  LON (REMAINDER)! 

HEX  =  HEX/ 10 ! 

end; 

IF  NO. TENTHS  =  0  /i  NO.TENTHS  =  1  DURING  REPRISE  «/ 

T)CN  do; 

ASCII (5)  =  ASCII(A); 

ASCIKA)  = 

END: 

n=o; 

DO  WHILE  (ASCII(N)  =  30H)  AND  <N  SIGNED (3  +  NO.TENTHS));  /I  REPLACE  LEADING  ZEROES  HITH  BLANKS 

ASCII(N)  =  20H! 

n  =  n  +  i; 
end; 

END  HX2AS* 


Figure  G-2.  Revised  "HX2AS"  Procedure. 


action.hait:  /«  wait  for  reprise  »/ 

do  forever; 

ACTION  =  NOT ( INPUT (P0RT.B))  ANO  04H! 

IF  ACTION  =  A  THEN  CALL  H.REPRISE! 

IF  DO.STATS  THEN  CALL  STATISTICS! 

END  ACTION.HAIT! 


Figure  G-3.  Revised  "Action-Wait"  Procedure. 


DECLARE  STATS.HSG.l  («)  BYTE  DATA  CENTER  START  TINE!  ')! 

DECLARE  STATS.NSG.Z  (*)  BYTE  DATA  CENTER  END  TINE  !  ')» 

DECLARE  ALPHA.HODE.HONE  (*>  BYTE  DATA  (33Q,14Q)! 

DECLARE  STATS.HSG.O  (*)  BYTE  DATA  <330, 140,350,620, 1700, 520,1120,370, 'STAGS/T' 

'  STATISTICAL  PACKAGE' ,350,620,1420,460,1140, 

370, 1 (MEAN  AND  STANDARD  DEVIATION  IN  NICRORADIANS) ' 
CR,LF,LF,LF, 

LF) ; 

DECLARE  STATS.HSG.3  <«)  BYTE  DATA  <350,520, 1600,450,1310,370, '  ELEVATION', 

350,520,1600,660,1000,370, '  AZIHUTH’ ,CR,LF 
LF, LF , 

1  NEAN  !  NEAN  I ‘ ,CR,LF,LF,LF , 

'  STANDARD  STANDARD  ’,CR,LF, 

■  deviation:  deviation: ',cr,lf,lf,lf, 

'  direction:  direction:', 350 >; 

DECLARE  STATS.NEAN.V  <D  BYTE  DATA  (350,500,1560, 510,1060,370); 

DECLARE  STATS.STD.DEV.V  <*)  BYTE  DATA  (350,450,1660,510,1060,370)! 

DECLARE  STATS.DIR.V  (*)  BYTE  DATA  (350,430,1640,520,1020,370)! 

DECLARE  STATS.NEAN.H  («)  BYTE  DATA  (350,500,1560,700,1360,370)! 

DECLARE  STATS.STD.DEV.H  (i)  BYTE  DATA  (350,450,1660,700,1360,370)! 

DECLARE  STATS.DIR.H  (*)  BYTE  DATA  (350,430,1640,710,1320,370)! 


DECLARE  RIGHT 
DECLARE  LEFT 
DECLARE  UP 
DECLARE  DOWN 


(X)  BYTE  DATA  ('RIGHT')! 
(x)  BYTE  DATA  CLEFT1  )! 
(x)  BYTE  DATA  CUP'  )S 
(x)  BYTE  DATA  ('DOWN'  )! 


Figure  G-4(A).  Addition  to  "Keyboard-IO"  Module 


THE  FOLLOWING  PROCEDURE  IS  FOR  GENERATING  THE  STATISTICAL  DATA  AFTER  A  i 
FLIGHT.  THE  USER  NAY  INPUT  THE  BEGINING  TINE  AND  AN  ENDING  TINE  IF  LESS* 
THAN  THE  TOTAL  FLIGHT  TINE  IS  DESIRED.  * 


236  1  STATS.ROUTINE!  PROCEDURE  PUBLIC ! 

237  2  RE.ENTRYJ  CALL  PRINT  (BALPHA.HODE.HOHEt  LENGTH(ALPHA.HOOE.HOHE)); 

238  2  CALL  TIME(1700D) J  /*  DELAY  UNTIL  FINISHED  0165  MILLISECONDS )*/ 

239  2  FAST » I » DO.STATS » ST  ATS.RDY » END.AT.T ARGET » ST ATS.REQ  =  01 

290  2  CALL  PRINT  (8STATS.HSG.0,  LENGTH  (STATS.NSG.O) ) ! 

/i  HE  ARE  NON  READY  TO  QUERRY  THE  USER! 

(1)  HE  DISPLAY  'STATISTICAL  ANALYSIS  PROGRAM ' 

(2)  PRINT  'ENTER  START  TIME!  '  (INGEST  UP  TO  THO  DIGITS) 

(3)  PRINT  'ENTER  END  TINE  I  '  (INCEST  UP  TO  THO  DIGITS) 

(9)  UPON  ENTERING  THE  SECOND  NUMBER  OR  A  CR  THEN  CLEAR  SCREEN 

(5)  IF  A  BEGINNING  TIME  HAS  NOT  ENTERED  THEN  SET  START.TINE  TO  0 

(6)  IF  AN  ENDING  TIME  HAS  NOT  ENTERED  THEN  SET  END.TIME  TO  16 

(7)  ANNOUNCE  TO  THE  NFS  THAT  THE  LIMITS  ARE  SET  (DO.STATS  =  1) 

(8)  HHEN  THE  DATA  IS  READY  (STATS.RDY  =  1)  THEN  PROCEDE  TO  DISPLAY  IT  */ 

/i  i  *  i  i  i  i  i  i  i  n  n  i  i  i  i  *  *  i  i  i  m  i  i  i  i  i  i  i  i/ 

291  2  TENP.BUFFER(O) >TEMP_6UFFER( 1 >  =  30HJ  /*  SET  THE  BUFFER  =  00  */ 


292  2 

293  2 

299  2 

296  2 

297  2 

298  2 

250  3 

251  3 

252  3 

253  2 

255  3 

256  3 

257  3 

258  2 

25«  2 

260  2 


263  2 

269  2 

265  2 


CALL  PRINT  (8STATS.MSGJ.  LENGTH ( STATS_MSG_1 ) ) ; 

CALL  ci; 

IF  CHAR  C  CR  THEN  TEMP_BUFFER(0)  =  CHAR) 

ELSE  GOTO  SKIP.IT!  /*  JUMP  IF  A  CR  IS  RECEIVED  */ 
CALL  CI! 

IF  CHAR  <>  CR  THEN  DO) 

CALL  CO  (CARRIAGE.RETURN): 
TEMP.BUFFER(l)  =  CHAR) 

END! 

IF  CHAR  =  CR  THEN  DO! 

TEMP.BUFFER(l)  =  TENP.BUFFER(O); 
TEMP_BUFFER(0)  =  30H! 

end; 

SKIP.it:  CALL  CO  (LF>» 

CALL  CO  (LF) ; 

START.TIME  =  ASCII.TO.HEX  (8TENP.BUFFER(0)»2); 
IF  START.TIME  .  16  THEN  START.TIME  =  16! 

/I  I  I  I  I  II  I  I  I  I  I  I  I  It  I  I  I  II  I  I  I  I  I  !/ 

TENP.BUFFER  (Ob  TENP.BUFFER  ( 1 )  =  30Hi 

CALL  PRINT  (8STATS.MSG.2*  LENGTH ( STATS_HSG_2 > ) J 

CALL  ci; 


266  2 
268  2 

269  3 

270  3 

271  3 


IF  CHAR  <>  CR  THEN  TEMP.BUFFER(O)  =  CHAR! 

ELSE  DO!  /*  IF  CR  THEN  SET  END.TIME  TO  16  AND  BAIL  OUT  */ 

END.TIME  =16! 

GOTO  SKIP.IT2; 

end; 


272  2 

273  2 

275  3 

276  3 

277  3 


CALL  CIS 
IF  CHAR  < 


HAR  O  CR  THEN  DO! 

CALL  CO  (CARRIAGE.RETURN)! 

TEMP.BUFFER(l)  =  CHAPS 

end; 

Figure  G-4(B).  Addition  to  "Keyboard-IO"  Module. 


278  2 

280  3 

281  3 

282  3 

283  2 

284  2 

285  2 

284  2 

287  2 


289  2 

291  2 

292  2 

293  2 

294  3 

295  2 

296  2 

297  3 

296  3 


299  2 

300  2 

301  3 

302  3 

303  2 

304  2 

306  2 


307  2 

308  2 

309  3 

310  3 

311  2 

312  2 

313  3 

314  3 

315  2 

316  2 

318  2 

319  2 

320  2 

321  1 


IF  CHAR  =  CR  THEN  DO! 

T£HP_BUFFER(1>  =  TEHP_BUFFER«»; 

TOT_BUFFER<0)  =  30HJ 
ENOS 

SWP.IT2:  CALL  CO  (LF)? 

CALL  CO  (L F)J 
CALL  CO  (LF)? 

ENO.TIHE  =  ASCII.TO.HEX  (8TEMP. BUFFER (0). 2)1 

IF  ENO.TIHE  >  16  THEN  ENO.TIHE  =  141  /*  HE  NON  HAVE  BOTH  VALUES  */ 


IF  ENO.TIHE  <=  START.TIHE  THEN  GOTO  RE.ENTRY? 

CALL  PRINT  (8STATS.HSG.3f  LENGTH  (STATS.HSG.3))? 

DO.STATS  =  1?  /*  ALERT  THE  HFS  «/ 

00  WHILE  STATS.RDY  =  05  /*  WAIT  TILL  THE  DATA  IS  READY  «/ 

end; 

CALL  PRINT  (RSTATS.HEAN.H.  LENGTH  (STATS.HEAN.H))? 

hor.hean:  do  i  =  o  to  5; 

CALL  CO  (H.HEANd))* 

end; 


CALL  PRINT  (8STATS_STD_DEV_Hj  LENGTH  'STATS.STD.DEV.H))! 
HOR.DEV!  DO  I  =  0  TC  5; 

CALL  CO  (H.DEV(I))i 

end; 

CALL  PRINT  (8STATS_DIR_Hf  LENGTH(STATS.DIR.H) ) ? 

IF  HEAN.RIGHT  THEN  CALL  PRINT  (BRIGHT.  LENGTH  (RIGHT))? 
ELSE  CALL  PRINT  (8LEFT,  LENGTH  (LEFT))? 


CALL  PRINT  (8STATS.HEAN.V.  LENGTH  (STATS.HEAN.V))! 

VER.HEANI  DO  I  =  0  TO  5! 

CALL  CO  (V.HEAN(I))? 

end; 

CALL  PRINT  (8STATS.STD.DEV.Vf  LENGTH  (STATS.STD.DEV.V))? 

VER.DEV:  DO  I  =  0  TO  5! 

CALL  CO  (V.DEV(I))? 

end; 

CALL  PRINT  (8STATS.DIR.V.  LENGTH(STATS.DIR.V) ) ; 

F  HEAN.UP  THEN  CALL  PRINT  (8UP.  LENGTH(UP))? 

ELSE  CALL  PRINT  (8D0HN.  LENGTH  <  DOWN ) ) ! 

CALL  00(350) i  /*  SHIFT  BACK  TO  VECTOR  NODE  */ 

END  STATS.ROUTINE! 

END  KEYBOARD. 10; 

Figure  G-4(C).  Addition  to  "Keyboard-IO"  Module 
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